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I INTRODUCTION 

The program presented hexe aAt set out ior the. individual who has a spectiic. 
need in mind. Because a detailed discussion oi these program would require a 
t&xt several times the. present size oi this Library it has been omitted. Indi- 
vidual* who have a speciiic requirement wilt have, to be at least knowledgeable. 
in the area the program i& written about; ie: Statistical program re.quixe the. 
usex to be Tamilian, with the. terms m2an, median,, etc. This i& because, the pro- 
grams axe written in the vexnacular oi their subject matter. With this know- 
ledge alone, no programming expedience on the pant oi the usex Is, requited in 
ordex to use. any oi these programs In most system. Once it is det&Amined that 
a poAticulaA program may be useiul the use*, merely types in a copy oi ike. BASIC 
souxce. code exactly as it appeals in the program listing. Then fallow the. in- 
structions ion funning the program as presented in the InstAuction portion oi 
the write up, immediately preceding the program. Also Included in the write ups 
axe statements that appear in the source code which may possibly need to be 
changed to run in the user's computer system; ie: RWP statements may have, to be 
changed to FRAWP in ordex to compile in cextain systems . 



Due to the numerous copyright infringements incurred on our 
earlier volumes, until further notice we are offering a $200 
REWARD for information leading to the arrest and conviction 
of anyone reproducing or distributing copies of our software 
and/or books or tapes without the EXPRESSED written authori- 
zation of SCIENTIFIC RESEARCH INSTRUMENTS COMPANY, INC. 
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Business & Personal Bookkeeping Programs 
DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by h different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for inventory items. 

Performs an analysis of a pert network. 

Computes true annual interest rates. 

Computes lessor's rate of return for uncertain assets. 

Computes a lessor's rate of return after taxes. 
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Games & Pictures 

DESCRIPTION 

Teach the computer all about animals. 

Land your .spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues, 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/missiles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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DESCRIPTION 

Introduction 

He's absolutely MAD! MAD! MAD! 

Our 35th. president. 

Loveable "Peanuts" character, w/blanket. 

A modern miss to put a twinkle in your eye. 

Former "United States" president. 

Christmas or anytime this is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 
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Math & Engineering Programs 

DESCRIPTION 

Evaluates and selects steel beam sizes. 

Calculates convolutions. 

Calculates low pass filter components. 

Performs interpolations by spline fits. 
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Integrates a function by spline fits. 

Calc. and plots RF or Acoustic intensities. 

Calc. Long, and Lat. from interstellar fix or distance. 

Simulates a language compiler. 

Calc. the max. & min. values of funct. over a spec, interval, 

Calc. position from altitude and azimuth of celestial bodies, 

Calculates Blackbody energies, w/f liter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT's. 

Generates random numbers between and 1. 

Generates random integers between (X) and (Y) . 

Solves polynomials by "Bairstows Method". 

Solves any spherical triangle. 

Locates 50 stars (celestial). 

Calc. course and distance and incremental vectors. 
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Finds all variables in Basic programs. 

Calc. final position; given start and motion vectors 
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Calculates binomial probability distributions. 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 

Calculates confidence limits on linear regressions. 

Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 

Calculates difference of means in non-equal variances. 

Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp. , or power function. 

Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet. 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 

Finds the mean, variance and standard deviation. 

Computes various stat. measures for a variable. 

Calculates normal and T-distr ibutions. 

Compares 2 groups of unpaired data. 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 

Plots functions of X and Y. 
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Performs posting and billing of accounts. 

Maintains data for inventory records. 

Computes payrolls with full set of deductions. 

Performs a risk analysis on capital investments. 

Performs the most effi. scheduling of men or resources to loca. 

Solves the problem of scheduling and assignments. 

Computes the value of stocks. 

Calculates the effects of a bond switch. 
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An age old favorite. "B9, C23, M, E13, F21 , BINGO! 

Computes the yields for a bond for different periods. 

If you ever dreamed of being a Matador, here's your chance. 

Take charge of the Enterprise while Capt. Kirk is on leave. 

Authentic NFL version of this well known sport. 

Calculates long-term predictions of funds. 

Plots the results of Funds 1. 

Ancient Chinese game of chance. 

Plays Blackjack, Las Vegas style. 

Life is truly a battle for survival, a real challenger! 

Calculates annuities, loans and mortgages. 

Generates unique maze puzzles for you to solve. 

Five card draw - for up to 5 players. 

Performs population projections for defined areas. 

Determines the profitability of a firms various depts. 

3-Dimensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest, 

Calculates your Civil Service Retirement benefits. 

Computes savings plan profiles. 

Calculates repayment schedules for SBA loans. 

An all time favorite for young and old alike. 
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Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes integers as the sum of other integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Solves quadratic equations 

Draws a picture of the Infamous Red Baron. 

Calculates linear regressions. 

"Beep! Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nick appears as jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics. 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. 

Performs an analysis of a vari. table; one-way random design. 

Generates a "SINGING" Christmas card. 
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Designed to challenge the average player, fairly comprehensive. 1105 

Great fun for all, offers a unique opportunity for beginners in 

need of an opponent. 

For Doctors and Dentists alike, a complete patient billing 1117 

system which also permits the maintaining of a patient history 

record. 

Wordprocessing for lawyers, publishers, writers etc. Write, 1135 

store and change from rough draft to final copy in a variety 

of formats. 
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PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs prese/ited here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented In this section. 

Part h Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people In widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census , a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs In Parts 1 
and 3. The plotting Is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and 18 stat programs in this section. 

All of the programs presented here may be run by simply typing the source 
code as listed, exactly as It Is, Into your computer. Now before the pro- 
gram will run it will have to be converted Into machine code. This is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working In Is BASIC. In the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
terns only have BASIC, In these you are O.K. 

Immediately following Part h Is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
In these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs In this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume 111 is comprised of ADVANCED BUSINESS programs, part 5. This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written in a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 

small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found in 

Part 2 — Games. 
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AH of the programs In this Library were written or edited by the author. 
All of the programs edited by him were given for Inclusion, "swapped" for 
traded, or made public. A few of the original authors of the "swaps" are 
not known, for this I apologize. The others, unless specifically mentioned 
In the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation in making this work possible. 
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5 CHESS: 



^ This version of chess is written in Basic and should run in most extended 
25 Basics with little or no modification in systems with 12K of free memory. 
{2 The program plays a beginner's game but with some effort on your part, it 
01 can be made to do better. 



o 



>• 
a. 
o 
o 



t; There appears to be a quirk in the subroutine in line 4330, for the program 
!S doesn't always know when it's in "check" so it doesn't defend against the 
!±! danger. The flag indicating check is CI located in line 3355 and it is set 
& from the value CI in line 5170, which doesn't always get set through the con- 
i ditioned test in line 5140 and so on. 

& Unlike the brute force approach as used in our Checker game; Volume I, this 
"^ Chess game takes full advantage of using subroutines to keep track of the 
3- entire board thus using a minimum amount of memory. This approach however 
►3 has two drawbacks: First - it is very difficult to locate bugs within the 
program and Second - the running time becomes excessive. While our Checker 
game takes a lot of memory in order to be executed, it can make its moves 
in about a minute or less under most conditions, whereas the Chess game re- 
o quires 3 minutes for the first move and progressively more time per move as 
= the game progresses. 

I would like to have feedback in the way of letters, as to your suggestions 
for a better version of Chess. Any patches you find that cure the "check" 
problem as well as any other problems you may find would be appreciated. 
You should include in your letter your name, complete address and phone num- 
bers at which you can be reached. If there is sufficient interest, we will 
compile a newer version of Chess and mail out a copy of the source code to 
those whose letters we have on file. If you have a version of your own that 
you would like to share and we find it meets the requirements expressed in 
the poll better than our versions, we will include it in our mailing. Be 
sure to include information about the program variables and/or program opera- 
tion is it isn't clearly defined within the program. 

Following the program listing are the first three moves of a game to illustr- 
ate proper program operation. For those not familiar with Basic, there are 
appendices at the end of Volume II and V that define most of the statements 
used throughout the program. 
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100 
115 
130 
145 
160 
175 
190 
205 

«i. *£. \/ 

235 

250 

265 

280 

295 

310 

325 

340 

355 

370 

385 

400 

415 

430 

445 

460 

475 

490 

505 

520 

535 

550 

565 

580 

595 

610 

625 

640 

655 

670 

685 

700 

715 

730 

745 

760 

775 

790 

805 

820 

835 

850 

865 

880 

895 

910 

925 

940 



THIS PROGRAM PLAYS A CHESS GAME." 
BUT IT WILL NOT RECONIZE CAPTURES 



'IT WILL NOT 
'BOARD AFTER 
'MAKE A MOVE: 



IS A BEGINNER* GOOD LUCK.*. . .. " 

UCC COPYRIGHT - 1977 » BY SCIENTIFIC RESEARCH 
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REM CHESS 

PRINT 

PRINT 

PRINT 

PRINT "TH 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

DIM A(9?9) ? V(9s-150) 

FOR 1=1 TO 8 

Z8=~l 

READ J 

A<8s>I)=~J 

A(7»I>=-1 

A(2?I>=1 

A(1fI)=J 

NEXT I 

FOR 1=1 TO 

READ U(I) 

NEXT I 

FOR 1=1 TO 

FOR J=l TO 

U(I»J)=W(I,J)+I 

W(9-Ij-J)=W<9~I ? 

U<J»I>=»W<J»I) + I 

W(Jf9-I)=W<J»9-I)+I 

NEXT J 

NEXT I 

PRINT "WHAT COLOR DO 

INPUT Z$ 

F=-l 

IF MID*(Z*>1,1)="U 

IF MID*(2*»1»1)="B 

GOTO 610 

F=~F 

IS MINUS IF 



PROGRAM WRITTEN IN BASIC 



'EN PASSE' AND' 



ACCEPT CASTLING. IT DRAWS THE UPDATED" 
EACH PLAY. IT WILL TAKE ABOUT 3 TO 4 MINUTES 
SO BE PATIENT. THE LEVEL. OF DIFFICULTY" 



cz 
o 
o 

o 

tS b 

-< 

73 
i — i 

en 






o 



6 



4 
8 



73 

rn 
co 

m 

3> 
73 
O 

ZT. 



J) + I 



YOU WANT TO BE (WHITE OR BLACK) 



THEN 
THEN 



700 
805 



REM F 
M1=0 

GOSUB 970 
GOSUB 4330 
GOSUB 1375 
GOSUB 1975 
M1=0 
Z8=Z8+1 
GOSUB 970 
GOSUB 4330 
C1=C2 
F=~F 
M2=M1 

GOSUB 4330 
GOSUB 3310 
GOSUB 1975 
GOTO 700 



COMPUTER IS BLACK 
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CHESS VER» 1 - 2 - 

970 REM THIS SUB GENERATES THE BOARD 

985 PRINT 

1000 PRINT 

1015 GOSUB 1210 

1030 PRINT cz 

1045 FOR 1=8 TO 1 STEP -1 £ 

1060 PRINT TAB(15)JI5" I "J o 

1075 FOR J=l TO 8 ? 

1090 Z*="BKBQBBBNBRBP WPWRWNWBWOWK" ^ 

1105 Z7=ABS(A(I»J)*2+13) £ 

1120 A$=MID*<Z*»Z7f2) ^ 

1135 PRINT Mi " I "? ^ 

1150 NEXT J 53 

1165 PRINT ^ 

1180 GOSUB 1210 ' 

1195 GOTO 1270 £ 

1210 FOR 12=1 TO 41 m 

1225 PRINT TABC21 >*■-■* ^ 

1240 NEXT 12 ^ 

1255 RETURN o 

1270 PRINT „ 

1285 NEXT I K 

1300 PRINT g 

1315 PRINT TAB (20) % g 

1330 PRINT A B C D E F G Hx" 

1345 PRINT 3 

1360 RETURN P 

1375 REM THIS IS THE INPUT SECTION 

1390 GOSUB 5650 

1405 IF I0O2 THEN 5785 

1420 IF Z8>0 THEN 1480 

1435 PRINT "ENTER YOUR MOVE IN TWO PARTS" 

1450 PRINT "A STANDARD WHITE OPENING WOULD BE FROM D2" 

1465 PRINT "TOO? D4 " 

1480 PRINT "NOW ENTER THE SQUARE YOU ARE MOVING FROM "5 

1495 Z8=l 

1510 INPUT 1$ 

1525 GOSUB 1900 

1540 F1=T1 

1555 IF Fl>99 THEN 1660 

1570 PRINT "YOU ARE GOING TOO: "? 

1585 INPUT I* 

1600 GOSUB 1900 

1615 IF A<2?4>=0 THEN 1645 

1630 GOTO 1660 

1645 V(8s»10>=0 

1660 FOR 1=1 TO Ml 

1675 IF F1=V(0»I) THEN 1735 

1690 NEXT I 

1705 GOSUB 1945 

1720 GOTO 1375 

1735 IF V<8»I><>9 THEN 1765 

1750 GOTO 1690 

1765 J=l 

1780 IF Fl>99 THEN RETURN 

1795 IF T1=V(J?I) AND V(8»I><>9 THEN 1930 

1810 J=J+1 

1825 IF J<9 AND V(J ? I)<>0 THEN 1795 
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1840 
1855 
1870 
1885 
1900 
1915 
1930 
1945 
1960 
1975 
1990 
2005 
2020 
2035 
2050 
2065 
2080 
2095 
2110 
'? 1 o c ; 

2140 
2155 
2170 
2185 
2200 

OO 1 cr 

a~ &;. ,l o 

2230 
2245 
2260 
2275 
2290 
2305 
2320 
2335 
2350 
2365 
2380 
2395 
2410 

A*- *7 A% v J 

2440 
2455 
2470 
2485 
2500 
2515 
2530 
2545 
2560 
2575 
2590 
2605 
2620 

jC O \j *J 

2650 
2665 
2680 
2695 



Fl THEN 1765 



1*1 + 1 

IF V<0rl> 

GOSUB 1945 

GOTO 1480 

IF LEN<I*)<>2 THEN 1945 

Tl=10*ASC<I*)+VAL<RI0HT*<I$»i)>-640 
RETURN 

PRINT "ILLEGAL MOVE - TRY AGAIN " 

RETURN 

REM THIS SUB SETS UP THE NEW BOARD AFTER gACH MOVE 

IF Fl>99 THEN 2230 ^ 

Z2=»F1 

GOSUB 4090 H * 

I=Z3 

Z4=F1 

GOSUB 4150 

J=Z5 

Z2~Ti 

GOSUB 4090 

I3*Z3 

Z4=T1 

GOSUB 4150 

I5=Z5 

A(I3»I5)=A(I»J) 

A<I»J)=0 

RETURN 

IF Fl=100 THEN 2320 

GOSUB 4285 

A ( I r 1 ) =0 

A < 1 1 2 ) -6 

A ( I r 3 ) =2 

RETURN 

GOSUB 4285 

A<I?8)=0 

A<Iy7)=6 

A(I?6)=2 

RETURN 

IF X<X4.5-2.5*F> THEN 2935 

REM THIS SUB CHECKS FOR THE! QUEEN 



o 
o 

o 

o 
-o 

-< 

70 



ID 



CO 

o 



o 

70 

m 
oo 

m 

> 

73 
O 

3C 



O 



CHECKS FOR THE KING 



D2+1 
Dl + 1 



GOSUB 5260 

GOTO 5425 

REM THIS SUB 

D2=X 

D1=Y 

FOR X=D2-1 TO 

FOR Y=D1-1 TO 

GOSUB 4630 

GOSUB 4930 

NEXT Y 

NEXT X 

RETURN 

REM THIS SUB CHECKS FOR THE KNIGHT 

D2=X 

Di = Y 

FOR X=D2-2 TO D2+2 STEP 4 

FOR Y=D1~1 TO Dl+1 STEP 2 

GOSUB 4630 

GOSUB 4930 
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4 - 



2710 


NEXT Y 




9 7 'PS 


NEXT X 




2740 


FOR X=D2-1 TO D2+1 STEEP 2 




2755 


FOR Y=Di-2 TO Dl+2 STEP 4 




2770 


BOSUB 4630 


a 


2785 


GOSUB 4930 


o 
o 


2800 


NEXT Y 


o 


2815 


NEXT X 


o 


2830 


RETURN 


-< 

73 


2845 


REM THIS SUB CHECKS FOR PAWN 


S *~ * 
CD 


2860 


GOSUB 4525 


—1 


2875 


IF A<X+F»Y)=0 THEN 3130 


t— » 


2890 


IF XO(4.5-2,5*F) THEN 2935 




2905 


GOSUB 4525 


-J 


2920 


IF A<X+F*2»Y)=0 THEN 3190 


1 


2935 


FOR D2*-i TO 1 STEP 2 


o 


2950 


C5=Y+D2 


I— i 
m 


2965 


GOSUB 4195 


z 
-l 


2980 


IF C6=0 THEN 3100 


I— i 
-n 


2995 


GOSUB 4525 


i— i 
o 


3010 


C3=9 


73 


3025 


C7=A<X+F»Y+D2) 


m 
in 


3040 


IF SGN(C7)OF THEN 3250 


rn 


3055 


V<SifMi)=X+F+iO*(Y+D2) 


73 
O 


3070 


V<8»M1)=C3 


zc 


3085 


GOSUB 4525 


1 — 1 


3100 


NEXT D2 


r> 


3115 


RETURN 




3130 


V(1»M1)=X+F+Y*10 




3145 


V<2?M1>=0 




3160 


g<8j>Ml>=8 




3175 


GOTO 2890 




3190 


V(i ? Mi)=X+F>K2-fY*10 




3205 


V(8»M1>=8 




3220 


V(2fMl)=0 




wiCwvf 


GOTO 2935 




3250 


IF C7O0 THEN 3280 




wP4L O *J 


GOTO 3055 




3280 


C3=C7 




3295 


GOTO 3055 




3310 


REM THIS SUB IS WHERE THE COMPUTER 


3325 


GOSUB 5650 




3340 


IF I0O2 THEN 5785 




3355 


IF Cl=l THEN 3385 




3370 


GOTO 3445 




3385 


PRINT 




3400 


PRINT " IN CHECK " 




3415 


PRINT 




3430 


REM 




3445 


FOR I=M2+1 TO Ml 




3460 


FOR J=l TO 7 




3475 


Z2=V<J»I> 




3490 


GOSUB 4090 




3505 


X1=Z3 




3520 


Z4=Z2 




3535 


GOSUB 4150 




3550 


Y1=Z5 




3565 


Z2«V(0f I) 





MAKES ITS MOVE 
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3580 

3595 

3610 

3625 

3640 

3655 

3670 

3685 

3700 

37.1.5 

3730 

3745 

3760 

3775 

3790 

3805 

3820 

3835 

3850 

3865 

3880 

3895 

3910 

3925 

3940 

3955 

3970 

3985 

4000 

4015 

4030 

4045 

4060 

4075 

4090 

4105 

4120 

4135 

4150 

4165 

4180 

4195 

4210 

4225 

4240 

4255 

4270 

4285 

4300 

4315 

4330 

4345 

4360 

4375 

4390 

4405 

4420 

4435 



GOSUB 4090 
S2=Z3 
Z4-Z2 
GOSUB 4150 

IF X1=0 THEN 4015 
IT V<8»I)=9 THEN 4015 
L=U ( XI r Yl ) + U ( ABS ( A ( XI » Yi ) ) ) *3 
REM U( ) GIVES THE SQUARE PRIORI 
U< ) GIVES THE PIECE VALUE 
K=l TO M2 
6=1 TO 7 
V<G»K)=V(J»I) THEN 3850 
■0 THEN 3805 



REM 

FOR 

FOR 

IF 

IF V(G,K)' 

GOTO 3820 

NEXT G 

NEXT K 

GOTO 3910 

IF V<8s>KK>8 THEN 3880 

GOTO 3775 

L=L-2*U ( ABS ( A ( S2 , S3 ) ) ) 

GOTO 3775 

L=L+1000 

IF L>M5 THEN 3955 

GOTO 4000 

M5=L 

M6=I 

M7=J 

NEXT J 

NEXT I 

M5==0 

Fl=V<0s-M6> 

Ti=V(M7fM6) 
RETURN 

REM THIS SUB DEFINES THE ROW 

Z6=INT<Z2/10) 

Z3=Z2-10#Z6 

RETURN 

REM THIS SUB DEFINES 

Z5=INT<Z4/10) 

RETURN 

THEN 

THEN 



TY 



cz 
o 
o 

o 
o 

T> 
-< 
TO 
» — i 
CD 



-vl 



CO 
O 



O 
73 

m 
oo 

m 

O 



THE C0LUME 



4255 
4255 



IF C5>8 

IF C5<1 

C6=l 

RETURN 

C6-0 

RETURN 

I=4*5+3*5*F 

A<Iy5)=0 

RETURN 

REM THIS SUB CHECKS FOR MEN ON THE BOARD 

C2=0 

FOR Xl=l TO 8 

FOR Yl=l TO 8 

X=X1 

Y==Y1 

IF SGN(A<X?Y))=F THEN 4480 
NEXT Yl 
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4450 NEXT XI 

4465 RETURN 

4480 X3=ABS<A<Xs>Y>) 

4495 ON X3 GOSUB 2845* 5260 >2605 r 5425 , 2410*2455 

4510 GOTO 4435 g 

4525 IF V(1,M1X>0 THEN 4555 " 

4540 GOTO 4585 g 

4555 Ml-Ml+1 ^ 

4570 V<1»M1)=0 g 

4585 V(0?M1)=X+Y#10 g 

4600 Sl«l -" 

4615 RETURN £ 

4630 IF V(1»M1X>0 THEN 4690 ^ 

4645 V<0rMl>»D2+Dl*10 ( 

4660 Sl = l „, 

4675 RETURN o 

4690 M1=M1+1 m 

4705 V<1»M1)=0 ^ 

4720 GOTO 4645 2 

4735 GOSUB 4525 o 

4750 M3=X » 

4765 M4==Y £ 

4780 X==X+H2 ag 

4795 Y-Y+Dl g 

4810 GOSUB 4930 M 

4825 IF C3=0 THEN 4780 z 

4840 X=M3 

4855 Y=M4 

4870 IF C3=99 THEN 4900 

4885 RETURN 

4900 C3=0 

4915 RETURN 

4930 C3=99 

4945 C5=X 

4960 GOSUB 4195 

4975 C7=C6 

4990 C5=Y 

5005 GOSUB 4195 

5020 C8==C6 

5035 C9=C7*C8 

5050 IF C9=0 THEN 5245 

5065 IF SGN<A<X*Y))=F THEN 5095 

5080 GOTO 5125 

5095 C3=9 

5110 GOTO 5185 

5125 C3=A<Xi-Y> 

5140 IF C3=6*F THEN 5170 

5155 GOTO 5185 

5170 C2=l 

5185 V<Sls>Ml)~10#Y+X 

5200 S1=S1+1 

5215 V(S1?M1)=0 

5230 V<8 ? M1)=C3 

5245 RETURN 

5260 REM THIS SUB CHECKS FOR ROOKS 

5275 D2=0 

5290 Dl=l 

5305 GOSUB 4735 
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CHES! 


3 VER, 1 








- 


7 - 




5320 


Dl=-1 














5335 


GOSUB 4735 














5350 


D2=l 














5365 


D1=0 














5300 


GOSUB 4735 










cz 




5395 


D2=-l 










o 
o 




5410 


GOTO 4735 










o 




5425 


REM THIS SUE 


i CHECKS 


FOR 


BISHOPS 


o 

-a 




5440 


D2=l 










-< 

TO 




5455 


Dl = l 










1 — 1 
CD 




5470 


GOSUB 4525 










-H 




5485 


GOSUB 4735 










I — t 




5500 


D2=--l 










U3 
— 1 






GOSUB 4525 










-^4 




5530 


GOSUB 4735 










1 




5545 


Dl=~-1 










o 




5560 


GOSUB 4525 










1 — 1 

m 




5575 


GOSUB 4735 










-H 




5590 


D2=l 














5605 


GOSUB 4525 










o 




5620 


GOTO 4735 










TO 




5635 


DATA 2>3y4?5?6s>4: 


r 3 ? 2 


9 10 j 50 f 30? 33 


»9R»1000 




5650 


10=0 










m 




5665 


FOR 19=1 TO 


8 








TO 

o 




5680 


FOR 18=1 TO 


8 








zsz 




5695 


IF ABS<A<I9> 


I8>) = 


«6 THEN 


i::* "7 cr cr 






5710 


NEXT 18 










o 




5725 


NEXT 19 














5740 


RETURN 














5755 


10=10+1 














5770 


GOTO 5710 














5785 


PRINT 














5800 


PRINT "THANK- 


YOU 


FOR 


THE 


: GAME* I 


NEEDED THE 


PRACTICE 


58.15 


PRINT 














5830 


END 
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THIS PROGRAM PLAYS A CHESS GAME* 

BUT IT WILL NOT RE CON I ZE CAPTURES 'EN PASSE' AND 

TT WILL NOT ACCEPT CASTLING* IT DRAWS I HE UPDATED 

BOARD AFTER EACH PLAY* IT WILL TAKE ABOUT 3 TO 4 MINUTES TO 

MAKE A MOVE* SO BE PATIENT* THE LEVEL OF DIFFICULTY 

IS A BEGINNER* GOOD LUCK*** 

UCC COPYRIGHT •••• 1977 , BY SCIENTIFIC' RESEARCH 

WHAT COLOR DO YOU WANT TO BE (WHITE OR BLACK) ? WHITE 



8 I BR I BN I BB I BQ I BK I BB I BN I BR I 
7 



I BP 


I BP 


I BP 


I BP 


I BP 


I BP 


I BP 


I BP I 


I 


I 


I 


I 


I 


I 


I 


I I 



4 



i i :i 


i: :i 


c :i 


i: i :i 


i: i i 


i i : 


i: ] 


i: : 


i: i ] 


i: i i 


i wp i wp : 


i: wp : 


i: wp : 


i: wp i wp : 


i: wp i wp i 


I WR I wn : 


i: wb : 


i: wo : 


i: wk i wb : 


i: WN I WR I 



<J ABC D E 

StER YOUR MOVE IN TWO PARTS 

^STANDARD WHITE OPENING WOULD BE FROM D2 

ISO* D4 

ffiW ENTER THE SQUARE YOU ARE MOVING FROM ? D2 

f6LI ARE GOING TOO* ? D4 
<_> 
i— i 



ui 



o 

CO 



8 I BR I BN I BB I BO I BK I BB I BN I BR I 

7 I BP I BP I BP I BP I BP I BP I BP I BP I 

& 6 I I I I I I I I I 

«-t _ , 

5 I I 1 I I I I I I 



r^ 



CJ3 

i— i 

cm 

>■ 

Q. 
O 

o 

o 
o 

ZD 



4 
3 



I 


I 


I 


I WP 


I 


I 


I 


I I 


I 

I WP 


I 

I WP 


I 

I WP 


I 

I 


I 

I WP 


I 

I WP 


I 

I WP 


I I 

I WP I 



I WR I WN I WB I WQ I WK I WB I WN I WR 

ABC D E F G H 
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8 I BR I BN I BB I BQ I BK I BB I BN I BR I 

7 I BP I BP I BP I I BP I BP I BP I' BF' I 

6 I I I I I I I I I 

5 I I I I BP I I I I 1 

4 I I I I UP I I I I I 



I : 


i : 


i: i : 


i: : 


i : 


i: : 


i i 


i wp : 


r wp : 


i: wp i 


i: wp : 


:i: wp : 


i: wp : 


i: wp i 


i wr : 


i: un : 


[ WB I wq : 


i: wk : 


i: wb : 


i: wn : 


i: wr i 



A B C I) E 

NOW ENTER THE SQUARE YOU ARE MOVING FROM ? El 

YOU ARE GOING TOO J ? B5 

ILLEGAL MO ME ■•• TRY AGAIN 

NOW ENTER THE SQUARE YOU ARE MOVING FROM ? HI 

YOU ARE GOING TOO? ? D3 






o 



8 I BR I BN I BB I BQ I BK I BB I BN I BR I 

7 I BP I BP I BF' I I BP .1. BP I BP I BP I 

& i i i i i :i: i i i 

5 I I I I BF' i i i i i 

4 I I I I UP I I I I I 






o 

I— I 



to 






CD 

i— i 

>• 

o 
o 

CJ 

o 

=3 



1 



I I I I WQ I I I I i 


i wp : 


i up : 


i: wp i : 


i: wp : 


i wp : 


i: wp ; 


i: wp i 


i wr : 


I UN ] 


[ WB I ] 


c wk : 


i: wb : 


i: wn : 


i: wr i 



B 
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8 


I br : 


i: bn : 


i: bb i 


i: bq : 


i: bk : 


i: bb : 


i: bn : 


i: br i 


7 


i bp : 


i: bp : 


i: bp ; 


i: : 


i: : 


i: bp : 


i: bp : 


C BP I 


6 


i 


:i: : 


i: : 


i: : 


i: bp ; 


i : 


e : 


i: i 



5 I I I I BP I I I I I 

4 I I I I WP I I I I 1" 

3 I I I I WQ I I I I I 

2 :i: wp :i: wp i wp i i wp x wp i wp i up i 

:l, I WR I WN 1 WB I I UK I WB I UN I UIR I 



A B C D E F li 

NOW ENTER THE SQUARE- YOU ARE MOVING FROM ? BE 3 

ILLEGAL MOVE •••■ TRY AGAIN/ error 

YOU ARE GOING TOO? ? DjflS ^U&: r«*»«* *A« P 

ILLEGAL MOVE - TRY AGAIN 

NOW ENTER THE SQUARE YOU ARE MOVING FROM ? D3 

YOU ARE GOING TQOt ? B5 



o 



8 I BR I BN I BB I BQ I BK I BB I BN I BR 

7 



zsz 


a 


o 




cc 




eX. 


,... 


LU 


s.) 


t/> 




UJ 




cc 


4 


o 




1— 1 




u_ 


3 


t— 1 


h- 




z 




UJ 


'■> 


HH 




o 




in 


:l. 


r-~ 




r>. 




<T\ 





I BP 
I 


I BP J 

.i : 


i: bp ;i 
i: ] 


t: 
i: 


i bp : 


1. BP . 

i: : 


i: bp :i 

i: :i 


[ BP I 

i: i 


I 


i wq : 


i; j 


i: bp 


i : 


i: : 


c j 


i: i 


I I I I WP I I I I I 


I I I I I I I I I 


I WP 


i wp : 


i: wp : 


i: 


i wp : 


i: wp : 


i: wp : 


i: wp i 


I WR 


i wn : 


i: wb : 


i: 


i uk : 


i; wb : 


i: wn : 


i; wr i 



tu 

I— « 

ai 

>- 
a. 
o 
o 

o 
o 

ZD 
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o 
cc 

< 

LU 
CO 

LU 
CC 

o 

1—1 



LU 



O 
00 



1^ 



CD 

t—t 
CC 

>- 

Q. 
O 

o 

o 
o 
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MEDBIL: 

This program is designed to alleviate some of the costly and troublesome 
chores that seem to abound when keeping track of numerous patient records. 
The program version presented here will allow a doctor to review the 
history file of any patient, previously stored in the data base s as well 
as permitting a quick check to be made of the payment history for each 
of these patients, plus several other features. This version does not 
include a routine for preparing insurance forms nor does it allow immediate 
invoicing of patients. Those persons interested in a more comprehensive 



version; MBP rev: 25, should complete 
agreement included at the end of this 
or contact us directly to obtain more 



a copy of our software licensing 
volume and return it with an order 
information. This program can be 



easily adapted for use by either or both doctors and dentists. 

With the number of Basics in use today it almost impossible to write a 
program that can be immediately executed in every system without making 
any changes to the program. It may be necessary to change the file call 
statements used in this program to those that will be accepted by your 
Basic. Listed below are the five (5) file statements used throughout 
this program: 



NAME 



"file name" AS "new name 1 



OPEN 



"I/O", X, "file name 1 



CLOSE 



#X 



INPUT 



#X, Variable List 



PRINT 



#X 9 Variable List 



Other than the file call conversions, any other conversions that might 
be required should be of a very minor nature for most Basics. Should 
you wish to convert this program and are unfamiliar with the statements 
used, there are appendices in the back of Volume II and Volume V that 
define the statements and give specific system conversions. Medbil 
should execute in most systems having disk extended Basic with at least 
12K Bytes of free user memory. 

Immediately following the source code listing for the program are sample 
printouts of the various reports that can be generated. At the end of 
these report printouts is the source code listing for the "Med" file. 
This is the creation file for your data base which must be built before 
you can run MEDBIL. This data file should contain all the patient 
information that you would like the computer to keep track of for your 
office. 
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Before you start entering data there are a few things you should keep irt 
mind, in order to conserve disk storage space. First - you are building 
a data base which is dynamic, this then excludes the use of any kind ofo 
tape storage system. Second - you will need disk storage space twice ° 
that required for your data base so that you will be able to update the^ 
file with new patient data. Third - be brief in the patient history de£ 
scription as this uses up memory very rapidly. Ej 

To make all this a little clearer, let's look at a typical case. To seS 
up the file with the name and address of your patient, takes about fifty 1 
(50) characters. To describe each visit will require about thirty (30) ' 
characters; see the billing report, and approximately fifty (50) char- o 
acters would be used per line of patient history. Now suppose a patienE 
has been in five times and you have logged three lines of patient historV 
per visit, plus an initial line describing the patient's allergies. To^ 
recap all this we have 50 characters for the name and address, 150 char£ 
acters for the visits (5 visits x 30 xhar.), and 800 characters for the^ 
patient's history (5 visits x 3 lines per visit x 50 char, per line) K 
which is only about a quarter of a page when printed out. Conservatives 
estimated the above example totals out to one thousand bytes of information 
or IK per patient. ^ 

i — i 

3: 

In addition to the patient information stored on the disk your Basic ancP 
the source code for MEDBIL must also be kept on the same disk which 
^™ S n you an overnead of a ™und 30K. If you have a disk which can hold 
Z50K Bytes of information then you will be able to store information for 
about 110 patients. If you only have 80K on a disk you will only be 
able to store information for around 25 patients, so be brief. A number 
of doctors have gotten around this by assigning or reserving blocks of 
patient numbers to each disk. Then, when a patient arrives for his 
visit the diskette containing his or her patient number is placed in the 
computer. This procedure would be required each time a patient whose 
number was not on the diskette in the computer was seen by the doctor. 
While this method may not sound very attractive its really very easy to 
S ^P a , diskette 1n and out of the computer and the number of times this 
would have to be done could be minimized by the care with which patients 
are assigned to each diskette. 
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.1.00 CI... EAR 600 

HO g$- "*$####*#!- ♦*#" 

120 DEFDB! B 

130 U! LD I !■! SO 

1.40 REM THIS IS THE MEDIC A;.. P A T I ! I N "I" A/R PROGRAM ^ 

ISA pfh FOR l-'iii j„ MODIFICATIONS LIST THE PROGRAM o 

160 REM THIS PROGRAM IS WRITTEN iU BASIC ° 

170 REM COPYRIGHT ■■ BY SCIENTIFIC RESEARCH 8 

1 ho IV Hi WRITTEN BY ROGER BROWN ;< 

■19.-1 !"-|-M ri-IF EOi. IOWJNG OAR IAD! ES ARE USED IN THIS PROGRAM £ 

CD 

200 REM HE- NUMBER Ui j; COS I UMEkS ^ 

2:1.0 REM lDi-T<EI :; 'UE ; DATE _ 

220 REM N -ITEM # ig 

220 RI!!M El* -ITEM DESCRIPTION C1.1. CHARACTERS OR LESS PLEASE)^ 

240 lv EM A :::: PATIENT ACCOUNT # ' 

250 REM N$ ^CUSTOMER NAME (20 CHARACTERS OR LESS) ^ 

260 REM R* -CUSTOMER STREET ADDRESS 

270 REM S* ^CUSTOMER CITY % STATE ADDRESS 

280 REM S ::: - 1 (# OF- PAHirNTS i-'EK RECORD) 

290 REM A* ■'= DATE OF VISIT 

SOU El: M EX? I A/1 7/75 

3.10 KFM B =" t Hi- 2HARGT-8 FOR EACH PATIENT 

2 .-.' K i: M i :: ::: I ', S I I C !"l A E G E S rn 

330 REM U ■•= CUMULATIVE AMOUNT PAID to 

•i40 Ri.: M IDi ™DA"I E 01- LAST PAYMENT zc 

352 REM EX? .12/21/75 !=2 

360 REM ...!$ :: " PATIENTS HISTORY RECORD o 

370 REM 

300 REM 



o 



"n 
o 

m 

CO 



430 REM *#*###*#**#**#***#****#*W^ 

440 REM 

430SE—0 

460 REM SSI'S THE SALES TAX PERCENTAGE 

470 PRINT 

4 00 PRINT " OCC COPYRIGHT BY * SCIENTIFIC RE SI.: AKCH ■•• .I.VV/ 

490 PRINT 

500 FRi.N'i 

'51.0 PRINT 

520 r'RlNT 

530 print " THIS IS THE MEDICAL RECORDS AND PATIENT BILLING PEOGKHrv 

540 PRINT 
550 PRINT 
560 PRINT 

570 PRINT "TYPE IN TODAYS HATE* ASJ 5/21/76 " J 
580 IN POT D?l> 
570 OPEN " I" v 1 :• "MED" 
600 INPUT' #J. vN.1. 
610 FOR 1=1 TO Nl 

620 INPUT #1*A »N$ :-'E$ s>S* » U Al$ »B »J 

~S30~rr B =-0 "THEN' 67V ' 
640 FOR Tl-I TO B 

650 INPUT #:l. ?E* yN ?A$ " ?S '" vP 
660 NEXT 11 

"S70"TF J -0 THEN 710 

680 l :: OR 12-1 ' TO J 
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•690 INPUT #1 ?J$ 
700 NEXT 12 
7.1.0 NE-X I I 

720 klOSE 
730 PRINT 
?40 PELNt 
750 PRINT 
/6C T'Fi. Mi 

770 PRINT "THE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAH" 

780 PRINT "Ui:ii...i GENERA I E , 10 CHOUSE ONE TYPE LI S NUMBER WHEN ASKED 

790 PRINT 

BOO PRINT " 1 F'PlNf HA Ji I.NG LABELS" 

810 PRINT " 2 PRINT PATIENT BTI LS" 

820 PRINT " 3 - FA HEN! A/k REPORT" 

830 PRINT " 4 ■ PATIENT HISTORY" 

840 PKlNi " j U Pi! A IE PATIENT RECORDS" 

850 PRINf " 6 • Si UP PROGRAM" 

860 T'EiNi 

37 PRINT "WHICH REP DPT WOULD YOU [IKE 'in RUN J "5 

8 WO i.NPUi E 

' 3?0 IF R'::A THEN 750 
900 .Li R-: I il-H'-UN /HO 
viu PRlf-ll 

920 IP '<■■■-<■, fi-li::. N 4. LOO 

-- 93() IF R~1 I HEN 1000 

74 u ir '•■<■■■■■. 2 I HEN 1260 

950 IP R----7, THEN 2190 

960 IF H~-'i THEN 2680 

970 IE E""'"i 'THEN 3220 

980 PRINT "ONLY A SINGLE NUMBER PLEASE BETWEEN 1 AND 6 ; " 

990 bOTO GOO 

j 1000 REM THIS SUB GENERATES THE MAILING LIST 

5 10.10 PRINT 

3- 1020 PRINT " THI.S IS THE MAILING. I... I. ST ROUT INF " 
o 1030 PRINT 

2 1040 PR I. NT "WHEN YUU PAUL THE LABEiS I.N FT AGE I YEE A 7i "! 

'2 1050 INPUT Z2 

oz 1060 Z1.-5 

% 1070 PUR 1-1 TU Z.I. 
£ 1080 PRINf 
I— 1 090 N I::. X T I 

|±! FIOO LET Z = £ 

11 1. FOR ]>1 TO Nl 
1120 PRINT TAB(Z) 5 A 
1130 PRINT TABCZ) ?N$ 
1140 PRINT TAB(Z) 0R$ 
1150 PRINT TAB(Z) ?S$ 
1160 PRINT 
"1:170" PRINT 



o 

CO 






"XS" 



g£ 1180 PRINT 



n. 
o 
o 



o 1210 PR IN'' 



1190 NEXT I 
L200 PRINT 



1220 PRINT 

T230" PRINT "ENir OF THE MAILING LIST *****••- 
1240 PRINT 

1250 GOTO 730 

1260 REM THIS SUB GENERATES THE BILLING LIST #2 



1.120 



1270 fc:l.™0 

.i 2 S B 2 '■'■■■ 

| i^O B5~ ; 

.1 5 R E M 1 H L I"' U R H A T F i" i i E B J I... i . ! ' E "i. N I I N G 1 8 Pi 8 i- (J !. . I... W S <• 

•j 3 j o RF'M PAHF ONE PRINT'S THE MAILING ADDRESS 
1320 REM OATE 
1,530 REM A OP DUN Ft 
j,34w REM 0U8 ToMEE N AMI- 
OS REM B'i He II: T ADDRESS 
1360 REM Ll'I'Y STATE 
1370 REM 
1.3 Bo REM 
,1390 REM 

1.400 iM::.H HAi'i;: C i I A R u .'::, # DESCR .!. P T I' ON CHARGES 

!. 4:1.0 REM ,,,,,*,,,<, 

1420 REM :■ ■> * <• .,,,,,, 

14 30 REM 

.!.' ^ 4 R !::' M 

1430 REM I DIAL AMOUNT PA LD ■■■■ % XXX, XX 

1.430 REM DATE OF HIE LAST PAYMENT 12/ 2.!./ 73 

1470 R>; M iOlAi AMOUNT JAUi •« * * ** *** * $ XXX, XX jK******* 

1480 REM 

1490 PRINT 

1 '300 PR LM 1 

13 10 PR!. NT 

.1. 320 P R I N "I" " W !■■ I E N T i-l E Y A R E 1 N P L A C E T Y P I:: A 

1530 INPUT Z 

1340 PET 2-7 

1550 FOR J>1. TO Z 

i.56 PRINT 
o 1570 NEXT I 

~ 1. J.i 130 i 1=1' 3=18 

a= 1590 OPEN " I " v 1 E ! MED " 

d; 16 0'.' INPUT #l:<Nl 

2i 13 10 FOR J :---|. TO N1 
i/i 

UJ 
DC 



O 

I— I 



••Rl.Nl "THIS GENERATES THE PRINTING OP THE BILLS" 



1330 i FT 7 = 5 

1340 INPUT # E A ?N$ ?R$ Eli$ ?U ?U* »S 

.1850 INPUT #1. ...E 



1.660 IF B -A THEN 2050 



-1 /" 



PRINT TAB (7) J A 

f> 168 P R I NT T A B ( Z > 5 N $ 

i 1.690 PRINT TABCZ) ?R$ 

r- :!. 7 P E INT 1 A B ( Z ) 5 8 $ 

§' 1? JO LET ZJ-4 

1720 FOR 13 = 1 TO Zl 

g 1.750 PRINT 
►—i 

>- 

g 1.760 Z7-65 

1770 PRINT TAB(Z7)5ii$ 

o 1780 PRINT 



1740 NEXT 13 

1750 REM THIS IS TO SKIP DOWN TO THE STATEMENT SECTION OF THE BILL* 



1790 FOR I 1=1 TO B 

1.800 INPUT TEE E* vH > M> ?S vP 

1810 Z2--3 

1820 PRINT TAB(Z2) S> 
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1830 PRINT A$ ?N ?EI '» " " ? n $ n ?P 

1840 B2 : " : B2fS $p 

1.850 NEXT 11 

I860 PR i. NI 

1 8 7 P R TNT " T T A L. AM U N T P AID ■■■■■■■■ $ " 5 ! J 

1880 PRINT "DATE OP I AST PAYMENT =•■ "?LJ$ 

1890 B3-"B2;KSS 

J. 9 B 3 -" I N T ( ,5 i 1 * B 3 ) 7 1 

.1.9 i.0 PRINT 

1920 B2=B2fB3- U 

1 V 3 B 2 ■■■■ INK ,5 1 :l. 1 B 2 ) / 1 

1940 PRINT "TOTAL. AMOUNT DUE ■■■■■■ %%*%%%%%*%** " •■ 

I9u0 PRINT USING "V$JB2? 

I960 PRINT' " %%%%%%%%%*%$%%*" 
1970 LET Z5-:!0 B 
1980 FOR J 6 -■■■■} lii 7 5 
1990 PRINT 
2000 _NEX T j 6 

2010 REM THIS IS TCJ 'skIP'TuTh^ 'nEXT'bil L READ. 
2Q1;0 Bi»-0 

2030 B 2 :::: 

2040 B 3 =- 

2050 IF ==0 THEN 2090 

206 FOR 1 7-1 TO J 

2070 INPUT #1, J$ 

2080 NEXI 17 

2090 NEXT I 

2100 Z--J.2 

2110 FOR 1 7 --".I. TO Z 
. 2120 PRINT 
M 2130 NEXT 17 

M 2140 PRINT "ENH OF THE BILL PRINTING SF OOFNOP , " 
5 2150 PRINT 

rv 

<C yi6U PRINT 
K 2170 CLOSE 
o; 2.1.80 GO 10 7 30 

"o"?|7D""REM THIS- SUB GENERATES THE COST, A/R REPORT 1R 
Li_ .<!. Z U I... i::. i .W 1 "- 

P 2210 LET B2~0 

m 2220 LET B :$-■('} 

G 2230 PRINT 

00 2240 PRINT 



R E P R T " ?D$ 



■-*-■ 2230" PRINT"- —- PATIENT 
£ 2260 PRINT 
-S" -2273?- PR INT 

^ 2!S SJh-! " ACC * ''" A/R * "'■ PAYMENTS",' L.S BAIL'S" GUST NAME" 
£ 2300 OPEN " I " y 1 , " MED " 



^2Tns~i}wnT-wnTii - ■ -■ ■ • 

8 _ 2320 FOR 1=1 TO Nl 

o 32330 INPUT #1, A ,N$ ? Rf „S$ »|l ,u* ' „ P, 

15 2340 INPUT *1, J 

2350 IF B =0 THEN 2490 

2360 FOR 11=1 TO B 
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>U* 



2370 INPUT #:l. v E * > H ' " ' » A$ ' " ' v B ' ' cP 

2380 12^3 *F" 

2390 T2-T2*U + S*) 

2 4 T 2 =- .!. N I ( * 5 i 1 * "f 2 ) / 1 

2410 B3-B3iT2 

2420 NEXT' II 

2430 B3-INK ,5il00;KB3)/:!.00 

2440 til---Bl t A-:3- U 

2450 B2=B2fU 

24e0 PRE NT fl 

2470 LET B3==0 

2 4 8 I 2 5 

2490 PRINT A :•• " -i> 00c00"y"$ OOtOONLI* 

2500 IF J »"0 I HEN 2540 

2510 FOR T7~=:l. TO J 

2520 INPUT #;l - J* 

2530 NEXT 17 

2540 NEXl I 

2550 PRINT 

2 5 6 !• ' K 1 N i 

2570 PRINT 

2 3 8 I-' R J N I " i (J f A I... I-' A Y M E N ' f 3 ■■■■■■ " i 

2590 PRINT USING U:ii5B2 

2 6 P R I N i " "l ' T A L A Li C U U N T 3 / R E 2 * = :: " i 

2610 PRINT USING 0*?BltB2 



" JN$ 



" JN* 



2630 l :: ' R I NT "A C U N T S / R E C <■ D U E :::: " ? 

2 6 4 P R 1 N T U S I N G $ 5 B 1 ? 

2650 PRINT " #######*##*#**#*#*##***# " 

2660 C !... D S I::. 

<-> 26 70 GOTO 760 

S 2680 REM PA II EN 1 HISTORY 

690 LET B:l--0 

/CO LEI B2- : "0 



o 
a: 

<C 

LU 
CO 



U I..U . i .b 



:0 



lu 2/20 PR INI 

273 U T'RIN'l 
o 

s— < 



M T :!l: " 



2740 ! :; ' R I N 7" '' 1 N P U T I" H E ! :: ' A T :i." E N T ' S A C U N T # 



LU 



O 

co 



50 INPUT N7 

60 PRINT 

70 LET Q$=»D$ 



k N 



/80 PRINT 

« 2790 PRINT 

t-- 2800 PRINT " P A I 

eg 2810 PR INI 

r* 2820 PRINI 

£ 2830 PRINT "ACCft-f "PATIENT NAME' 

2 2340 PRINT 

">= 285 " P EL N " I " y * J. t " "M E B " 

o 2860 INPUT #1 vNl 

""■ 2870' FOR 1 = 1 TO Nl 

o >S80 INPUT #1 v A yH$ ?RI 

^ 2890 INPUT *l, J 

2900 IF B ■■-0 THEN 2940 



H I S I R Y 



$ ? II A.l% *B 



A S J !l vQ* 
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29:1.0 F"t)R"!i:.1>--l'"Tt) B 
. 2920 INPUT #1 y Eili :>H y M> yS yp 

y 2930 NEXT 1:1. 

- 2940 IF N70-A THEN 3000 
= 29S0 PRINT A »N* 
g 2960 PRINT 

"yj 2 ( ?70~PRTnT 

g 2980 PRINT " p A S T H I 3 T R Y" 

2990 PRINT 

|7| 3000 .17 J .-=0 THEN 3070 
•-•3010 FOR 17 = 1 TO J 
gj 3020 INPUT #:L ? J$ 
g 3 030 I F N 7 <' > A I hi E N 3 5 
oo 3040 PRINT J$ 
1 3050 NEX i a 7 

^ 3060 Il :; N7--A I HEN 3080 
2 3070 NEXT [ 
j_ o()80 Pk'INT 

§ 3090 PRINT "END OF *7N$ 5" HISTORY FILE" 
^ 3100 PRINT "WHEN YOU ARE READY TO PROCEED TYPE A i r ' i 
>- 3110 INPUT N8 
g 3120 PRINT 

o 3.1 30 PRINT "WOULD YOU LIKE TO EJiivHW ANOTHER PATIENT'S HISTORY (YFS OR NO)"S 
o 3140 INPUT Y$ 

3150 CLOSE 

3160 IF Y$="YES" THEN 2680 

3170 IF Y$--~"Y" THEN 2680 

3180 PEL NT 

3190 PRINT 

3200 PRINT 

3210 GOTO 730 

3 2 2 R E ii T IT i 8 .[ 8 T H E U P D A T I N G S E C T I N 

3230 FOR :i>l TO 8 

3240 PRINT 

3250 NEXT I 

5260 OPEN ,! 1 " y J. y "MED" 



3270 OPEN " r 0"" 727 "TTCRFf 1 ' "" " " 
5280 INPUT flyNl 

3290 PRINT "TYPE A ■• IF YOU ARE ADDING A NEW PATIENT" ' 

3300 PRINT "TYPE A •- 1 IF YOU ARE UPDATING AN OLD PATIENT" 

\*3J0 PRINT "TYPE A - 2 - IF YOU ARE FINISHED" 

3320 INPUT D 



3330 IF D<0 THEN 3290 
3340 IF D>2 THEN 3290 
3350 IF D=l THEN 3390 
3360 IF D=0 THEN 3780 
3370 CLOSE 
3380 GOTO 730 
3390 PRINT 

3400 PRINT "TYPE IN THE PATIENT ACCOUNT N 1 1MB FR "i 
3410 INPUT A 
3420 PRINT #2pN1 
3430 FOR I.-1 TO Nl 
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3 4 4 o :i: N i :: ' U 1 # 1 y A .1. y N $ y R $ y S $ v U v U * y B 9 J 

3450 IF A=A1 THEN 3600 

3460 PR ] N I" #2 i- A 1 v N$ y " y " y R$ y " y " y 8$ 5 " ? " ? U y U$ ? " y " v B y J 

3470 IF B«0 THEN 3520 

3430 FOR 12-1 TO B 

3490 J.' N P U f # I y E IjNjA $ y S y P 

3500 P R I N T # 2 y E $ J " y " y N y A $ y " y " y S y P 

3510 NEXT 12 

3520 IF J"-() THEN 3570 

.5530 FOR 13-1 TO J 

3540 INPUT #1 yJ* 

3550 PR INI #2fJ* 

3560 NEXT .1 3 

35 70 NEXT I J CLOSE 

35 SO KILL "MED" i NAME "SCRM" AS "MED" 

3590 GO) 0, 3260 

3600 B-BF1 

3610 PRINT "HOW hANY LINES hRE YOU 00 I NO TO ADD TO THE HISTORY "$ 

3620 INPUT LI 

3630 F'RINT #2 y Al ,N*i'5S R* y " y " y 8$ y " •> " i U y U$ y " y " S B y J + Ll 

3640 FOR ;i5-l TO B- 1 

3650 I N l : ' U 'I -ll- I. y E % y N s> A $ s- S y P 

3660 PF? .1 NT #2 y E* ? " v " y N y A$ 5 " y " S 8 y P 

3670 NEXT 15 

3 6 P R 1 N T " I Y P E I N f H E H G ♦ tt r D E S C ♦ y C H A R G E S t & PAYMENT"? 

3690 INPUT NyA$ySyP 

3700 P R 1 N I # 2 y D $ 5 " y " S N y A $ » " y " S S y P 

3 7.1.0 PRINT' 

3720 F'RINT "ENTER THE "HAi" LINES OF HISTORY NOW " 
<-> 3730 FOR I7-:l TO Ll 
•- 1 3740 INPUT 0* 
g 3750 PRINT #2»G* 
g 3/60 NEXT 17 
$ 3770 OHIO 3570 
w 37 30 PRINT' 

3/9 P R .1. N T " T Y P E .1." N T H E i : ' A T I E N T # y NAM E y A D D R E S3 8 y C I T Y / S T A T E / Z I P " 
{7* 380 I N P Ll T A y N $ y R $ y 8 $ 

-< 3810 PRINT #2vN:lfli PRINT "HOW MANY I FNES ARE YOU ENTERING IN THE HISTOR 

g= Y " ? J INPUT J 

~ 3820 F : 'R INT #2 y A v N$ y " y " 5 R$ y n y"y 8* y " y " 5 y D* ? " y " 5 1 y J 

^ 3 8 3 P R I N 1" " T Y I-' E H A R E # y D E 8 C ♦ y H A R G E A M 73 y P A Y M E N T " 

i 3840 INPUT Njft$?8?F' 

r*- 3850 PR I NT #.2 v D$ y " y " ? N y A$ 5 " y " y 8 y P 

§3860 PRINT "TYPE IN THE "PJy" LINES OF HISTORY " 
^ 3870 FOR 1.9 = 1 TO J 
g 3880 INPUT' K$ 
S 3890 F'RINT #2?K$ 
>; 3900 NEXT 19 

g 3910 for :ra-:i to ni 

3 9 2 IN P U T # J. y A y N $ y R % v S * y U y U * y B y J 

<-> 3930 PRINT #2yAyN$y " :> " yR$y " > " yS$y " y " y U y U$ y " y " SBj J 
3940 IF B==0 THEN 3990 



1125 



o 

1-1 39 hi) I" OR I ;'=-:i. I'.'j B 

o 396 . 1: N ! :: ' t J I # ;|. > £ :hN?A $ ? S ? I :: ' 

£c 39/0 PR |. N | :|i:2 v E$ 5 " v " ? N <■ A$ > " 

£ 3980 NEXT 17 

£ 3990 IF J-~0 THEN 4040 

o 400" I ■!;.;■■■ T6~'L TO J 

E 40.1.0 inrot #:bj$ 

P 4020 PRINT #0:;,J'|; 

ixj 4030 NEX '! I.' 6 

o 4040 Nli'XF ,18 

°° 40l : v0 (.,! USE 

' 4060 iv I I, i "MED" 

pv. -iO ■■'' < J N AMl-. '• :..< f ; 1 " A S " ft I (I " 

2 4u; : m r -RiM 

l_ '}OVO 0010 3260 

5 4 100 REM !l-li;; END 

5 4 1.1.0 END 

>- 

o. 

o 

O 
O 

o 
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UCC -■• COPYRIGHT BY ♦ SCIENTIFIC RESEARCH - 1977 



"HIS IS THE MEDICAL RECORDS AND PATIENT BILLING PROGRAM 



T Y P E I N I D A Y S D A T £ r A S I 5/21/76 ? 7/23/77 



THE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM 

W 3. L I... G E N E R A r E ♦ 'I C H U S E N E FY P E I T ' S N U M B ER _W H EN A S K E D ♦ _ 

1 ■•- PRINT MAILING LABELS 

2 - PR INI PA 'TIE NT BILLS 

3 ••■ PATIENT A/R REPORT 

4 ■■■■ PA I. CENT Hi: STORY 

o 5 - UPDATE PATIENT RECORDS 
'" -< 6 ■••STOP PROGRAM 

WH^Ll-l REPOR'I WOULD YOU LIKE TO RUNS 7 X 

to 

Ui 

tJJus IS I HE MAILING LIST ROUTINE 
i— i 
WH&N YOU HAVE THE LABELS IN PLACE TYPE A 7 J ? 7 

z 

1—4 

o 

CO 

r^. , , , , 

en ,5 / .1. 1 6 

JJ3AM WALTERS 

=§892 7 U* CHERRY STt 

~B ALT I MORE MD ♦ 21136 

>- 

a - ■- - -■ ■■ - 

o 

^ 45686 
PHIL REMINGTON 
•193 4 SHERWOOD AVE, 
BALTIMORE MD ♦ 21 134 

513/6 
MARY JOHNSON 1127 

PO BOX 405 



BALTIMORE MD, 2:1.134 



78192 
JOHN K* MASSEY _ 
3421" HOWARD S*f ~ 
B A I. .TIN ORE MD* 21 



I..50 



NANCY L* SMITH 
:I637 WEDGE WOOD AVE, 

BALTIMORE MIU 21135 



END OF THE MAILING LIST #>{<«5fc 



till; FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM 
WJLL UENERATE, TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKED. 



i •••■ print Mailing labels 

2 - PRINT PATIENT' BILLS 

3 •• PATIENT A/R REPORT 

4 - PAT I EN I HISTORY 

5 -■ UPDATE PATIENT RECORDS 
<J 6 ■ STOP PROGRAM 



W l-l Jjt: H R E p ij R i WO L. D Y U L I K E T R U N : 



O 
LU 



THfS GENERATES THE PRINTING OF THE BILLS 
[4hlHl THEY ARE IN PLACE TYPE "A" 7 ' t? "7" 



o 

00 



CTi 



re 

CD 



§£ 37:1.16- 

o " SAM WALTERS 

° 8927 Ul, CHERRY ST* 

o BALTIMORE MIU 21136 



3/2/76 
"972776 

A ft ,'-■)-} 



OFFICE LISIT 
OFFICE VISIT 



$ 1 5 



7/23/77 



A/9/77 



OFFICE VISIT 



* 15 



TOTAL AMOUNT PAID 
DATE OF LAST PAYMENT 

TOTAL AMOUNT DUE 



a <|> 40 

« 4/12/77 
************ 



$20*00 *************** 



"456S6 

PHIL REMINGTON 

1934 SHERWOOD AVE, 
BALTIMORE MD* 21134 



7/23/77" 



3/ lb//: 



OFFICE VISIT 
X-RAYS- 



* 15 

* 33 



TOTAL AMOUNT PAID 
DATE OF LAST PAYMENT 

TOTAL AMOUNT DUE 



= 4/1/77 
************ 



$35 * 00 **"************* 



O 

<C 

UJ 
CO 
UJ 



JOHN K* MASSEY 
3421 HOWARD ST* 
BALTIMORE MD . 21 



L30 



o 
co 

'3/9/76 12 

£1/21/77 "" 17 

oQ/ 16/77 12 



OFFICE VISIT 
REMOVED' WART 
OFFICE VISIT 



* 15 
% 15 



7/23/77 



T0g=AL AMOUNT PAID 
BAgE OF L..AST PAYMENT 

>- 
TOgAL AMOUNT DUE 

o 
o 



= 3/3/77 
************' 



$25*00' ""*i<************>r 



93216 
NANCY L* SMITH 
1637 WED0EWO0D AVE* 
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"777T/ 7 ' / " 



6/12/76 12" 
11/25/76 12 
2/2/77 12 

TOTAL AMOUNT PAID 
DATE OF LAST PAYMENT 



OFFICE UTSI 
OFFICE UI SI 



T 



OFFICE UIST.1 



35 
3/15/77 



* .1. D 

* "" 15" 



TOTAL AMOUNT DUE 



***********)« 



:l. •> % % % % % % % * * % % % % % % 



END OF THE BILL PRINTING SEQUENCE, 



re 
o 



IfflE 

uPfu.. 

o 



o 

CO 



en 

W7f] 



.LOW I NO IS A LIST OF REPORTS THAT THIS PROGRAM 
•NE'RATE* TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKED. 

•• PRINT MAI! ING LABELS 

• PRINT PAT J EN "I BILLS 

PATIENT A/'R REPORT 

PATIENT HISTORY 

J j p D 'll E |: '' A T ,: E N T R E c R D S 

stop "program " " 



I OH REPORT WOULD YOU LIKE TO RUN? ? 3 



CD 
i — t 

>- 

CL- -- 

o 
o 

t> 

o 

?fcc# 



37116 



45686 
51376 
73192 
93216 



H / K * 



* 20 



$ 00,00 

* 25 

* 1 



A / R 

PAYMENTS 

*~ 15" 

* 00,00 

* 30 
$ 35 



RE P'O R T 



LS DATE 



OUST NAME 



4/12/77 SAM WALTERS 

47T777 "FHTirn : fER"TNI3TDR~ 
PAID UP MARY JOHNSON 

3/3/77" JOHN K; "Mft'S'SEY" 
3/15/7 7 NANCY L* SMITH 



"OTA I... PAYMENTS 
TOTAL "ACCOIJNTS/RECV 



$120,00 
"$210700" 



M2CGUNTS/REC* DUE 



$90*00 



W$W W * * '%W%~XW%% * * %W¥$ W- W * *'* 



i HE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM 

JILL GENERATE, TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKED.' 



£ " ' - " ' PR INT M A I L I N" "G " I.: A B E LB " 

2 ■■• PRINT PATIENT BILLS 

3 PATIENT A/R REPORT 

4 ■- PATIENT HISTORY 

•5 ■■■■ UPDATE PATIENT RECORDS 

6 ■ STOP PROGRAM 



J HI OH REPORT WOULD YOU LIKE TO RUNS ? 4 



INPUT THE PATIENT'S ACCOUNT * ? 371:1.6 



P A T I E N r 



H I S T R Y 



A S 5 7/23/77 



ficci* 




" PATIENT" NAME 


37116" 




SAM WALTERS 


e 

o 

-...-Z. . . . . 


P A 


S T H I 



•I I S T R Y 

CLERGIES = SULFA % PENICILLIN * AGE 37 * HT 5 -10 * WT 173 
l§RST VISIT 3/76 - FEVER 99,7 BD. PR* 35/115 HEADACHE 
DESCRIBED = TETRACYCLINE 500 MG REST & LIQUIDS 



second visit 9/76 - eyes watering, no fever, bp 80/125 

Described 

4/77 ■- nausea , no fever, chest pain and discomfort 



EMP1RIN #3 AND REST 
\ , NO FEVER, CHEST 
PRESCRIBED - COMPAZINE AND REST 



S9/77 •■■ DIARRHEA AND MILD DISCOMFORT, FEVER 98,9, BP 90/130 
DESCRIBED - LOMOTIL, EMPIRIN #3 AND REST 



O' 
CO 



END OF SAM WALTERS I'll STORY FILE 

(MEN YOU ARE READY' TO PROCEED " TYPE A 1 T I 

h>» — 



U3 

1— 1 
Q£ 
>- 
Q_ 
O 
O 

O 
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WOULD YOU LIKE TO REVIEW ANOTHER PATIENT~S" "HISTORY TyES W1Tq7? ~YES~ 
INPUT THE P A T I E N T ' 3 A C C U N I * ? 78192 



'"' A I' I E N T H I S T R Y A S t 7/23/77 

ACCtt~ '" PATIENT NAME "~~ ~ "* " 

/8192 JOHN K, MASSE Y 



P A S I H I S T f 



!•< i 



ALLERGIES ■ SULFA >!< AGE 22 $ BP 90/135 * HT 5 9 # WT J.5S 

3/76 - FJEST VISIT FEVER 101,8 , BP 85/130* FEELS POOR 

P i < £ S C R J. B E H 1 E !" R A Y C !.,. .1.' N E 250 MO 

REMOVED WAR! ON BACK OF LEFT INDEX FINGER, 

USED A LOCAL AND A HOT WIRE TO REMOVE WART, 

2/77 •- FEVER 101,2 , BP 85/130, FEELS ILL AND HAS HEADACHE 

HAW CHILLS, PRESCRIBED TETRACYCLINE AND EMPIRIN 



\,f •> 



END Oi' : " .JOHN i\ , MASSE! HISTORY FILE 

WHEN YOU ARE READY TO PROCEED TYPE A 1 ? , 

WOUi.D YOU LIKE TO REVIEW ANOTHER 'PATIENT '' S "HISTORY "< YES OR NCJY? - NCf 



O 



3T 
O 
Cd 

<c 

LU 
CO 

LxJ 



I'Hg FOLLOWING IS A LIS! OF REPORTS THAT THIS PROGRAM 

w i g c e n e e Aii::, r o c 1 1 o o s e: o n e t y i : ' i::: i t ' s n u m b e r w h e n a s k e d 

i .1. PRINT MAILING LABELS 

£ 2 PRINT PATIENT BILLS 

ex! 3 -• PATIENT A/R REPORT 

T_ 4 - PATIENT HISTORY 

= S UPDATE PATIENT RECORDS 

£ 6 ■ STOP PROGRAM 
at. 

>■ 

Wll&H RE FOR) WOULD YOU LIKE TO RUN J ? 6 

o 

o 
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10 REM MED FILE 

20 PRINT 

30 PRINT 

40 PRINT " THIS PROGRAM WILL BUILD YOUR DATA BASE FOR YOU" 

50 PRINT 

60 OPEN "Cyl^'MED" v . A ,. ir _ 

70 PRINT "HOW MANY PATIENTS DO YOU WANT TO PUT IN YOUR DATA BASE "t 

30 INPUT Nl 

90 PRINT #1»N1 

100 PRINT 

110 PRINT "TYPE IN THE FOLLOWING INFORMATION FOR EACH PATIENT 

120 PRINT 

130 PRINT "PATIENT * , NAME* ADDRESS r CITY/ ST ATE/ZIP r # OF VISITS BEING 

140 "PRINT "PLUS THE NUMBER OF HISTORY LINES YOU ARE GOING TO ENTER " 

ISO PRINT 

160 FOR 1=1 TO Nl 

170 INPUT Av N$? R*>' 8$? B? J 

1 8 P R I N T # 1 r A •> N * 5 " t " J R * i "»'! S * J'j'SB y J 

190 PRINT 

200 IF B=0 THEN 290 

210 PRINT "TYPE IN THE VISIT INFORMATION AS FOLLOWS? " 

220 PRINT 

•230 PRINT "DATE* CHARGE #» DESC.» * CHARGES r $ PAYMENT " 
z240 PRINT 
M 250 FOR 12=1 TO B 
o260 INPUT E$? Nj A$v Sv P 
<2 7 P R I N T # 1 :> E * i " * " 5 N v A $ ? " r " ? S c P 
$280 NEXT 12 
^2 90 IF J=0 THEN 380 

o300 PRINT .„ , ,,__. . 

£310 PRINT "INPUT THE PATIENT HISTORY HERE* BE SURE TO EN PER 
£3 2 P E I N T " T H E NUMB E R F L I N E S Y U S P E C I F I E DAB V E ♦ ♦ . ♦ ♦ ♦ ♦ ♦ " 
S3 30 PRINT 
o340 FOR 13=1 TO J 
^350 INPUT J* 
'360 PRINT #1fJ* 
£370 NEXT 13 
2380 PRINT 
h-390 NEXT I 
o400 PRINT 
£410 PRINT 
£4 20 PRINT 
S430 PRINT "ALL FINISHED " 



o440 PRINT 

!45< 
OK 



=450 END 
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"WRDPRO: 

^ This program is designed to allow owners of micro-computers the capability 

2 of rearranging text material and then printing it out in a variety of for- 

ft mats. While this version is not quite as comprehensive as our WWP rev:30 

^ program, it should easily run on most systems with disk extended Basic and 

E 15K Bytes of free user memory for execution. 

as There are a few statements appearing in this program that may not be in the 
~ version of Basic you are using. The first is the Console statement, if your 
% Basic doesn't have this command then just remove it everywhere it appeats in 
• the program, no other conversion is necessary. Line Input and Instr are two 
•*- more statements that may not be in the version of Basic you are using. The 
<^ Instr statement may be replaced by a conversion subroutine using the MID$ 
. statement, if necessary. A typical conversion for the Instr statement would 
■"■" be similar to the subroutine used on line 4075 on page 243 of Volume I. Here 
Fl is set equal to one (1) and the SST statement would be replaced by the MID$ 
statement; see appendix B, page 925: Volume V. 

,_, This program offers nine major modes of operation with a number of submode 
^ operations. Individuals requiring a considerably more comprehensive version, 
should complete a copy of our software licensing agreement included at the 
end of this volume and return it with an order or contact us directly to ob- 
tain more details. 

Following the source code listing for WRDPRO are a series of sample runs 
which illustrate the usefulness and versatility of the routines contained 
within this program. It should be noted that this version of WRDPRO rev:l 
can only utilize text files that fit entirely into the working memory of 
the system being used. Therefore, if your Basic requires 20K and you only 
have 50K Bytes of total memory, then the largest text file you could build 
and use would only be 15K Bytes long; this would be equivalent to approxi- 
mately four standard size, single spaced, typed pages of text. While this 
program does limit the size of your text files to the size of your working 
memory, it does not limit the number of files you may have, making it quite 
easy for you to have several files representing seperate portions of the 
total text material. 



>- 

o 

C_3 
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WRD PROC 8/11/1977 - 1 - 

.1.00 PRINT CHR$<26)? B WQRD PROCESSING TEXT EDITOR REV, 1,1" 

110 PRINT'UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH" {PRINTJPRINT 

120 REM WORD PROCESSING TEXT EDITOR 

130 REM WRITTEN BY JOHN U, SWAIN 

140 REM COPYRIGHT BY SCIENTIFIC RESEARCH 1977 <_ 

150 REM THE FOLLOWING VARIABLES CONTROL CONSOLE PORT ASSIGNMENTS G 

160 REM C1«CRT PORT ASSIGNMENT 

170 REM P1=SWITCH SETTING FOR CRT PORT ° 

180 REM C2=PR INTER PORT ASSIGNMENT :< 

190 REM P2=SUITCH SETTING FOR PRINTER PORT £ 

200 REM SET UP GLOBAL CONSTANTS AND EQUATES E5 

210 DEFINT A-Zt CLEAR 3000 JDEFFNZ* ( Y* )*CHR* ( ASC ( Y$ ) AND 95) 

220 LINEINPUT"ENTER TODAY'S DATE (MM/DD/YY OR SEPT, 26s- 1977)-? "?Z9* S° 

230 PR1NTCHR$<26) ^ 

240 ON ERROR GOTO 3420 'SET UP ERROR TRAPS ' 

250 ci=is:pi=i to 

260 C2==16!P2=0 

270 CLOSE J PRINT "WORD PROCESSING TEXT EDITOR REV. 1.1" 

280 PRINT-UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH" { PRINT {PRINT 

290 PRINT "THE FOLLOWING FUNCTIONS AVAILABLE ARE? "{PRINT 

300 PRINT*" 1 - BUILD THE TEXT OR LETTER" 

310 PRINT*" 2 - CREATE THE NAME AND ADDRESS FILE" ™ 

320 PRINT," 3 - EDIT THE NAME AND ADDRESS FILE" g 

330 PRINT," 4 - EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND YOU USE" 3 

340 PRINT," THE EDITOR IN BASIC)" =n 

350 PRINT," 5 - PRINT A COPY OF THE TEXT" ~ 

360 PRINT," 6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME " f> 

370 PRINT," AND ADDRESS FILE, SALUTATION ENTERED FOR EACH LETTER" 

380 PRINT," 7 - PRINT LETTERS FROM NAME AND ADDRESS FILE" 

390 PRINT," 8 - GLOBAL SEARCH AND REPLACE" 

400 PRINT," 9 - PRINT MAILING LABELS" 

4.1.0 PRINT, "10 - END" 

420 PRINT? INPUT"WHICH WOULD YOU LIKE TO D0"JF9JIF F9<1 OR F9M0 THEN 270 

430 PRINTCHR* < 26 ) ! 0NF9G0T0 470 , 760 ,1090 ,1560 ,1690 , 1940 , 2270 , 2750 , 3020 " 

440 REM END ROUTINE 

450 CLOSEJPRINT-EXITING TEXT EDITOR »{ CLEAR 200JEND 

460 REM TEXT CREATION ROUTINE 

470 LN=1000?PRINT"TEXT CREATION ROUTINE FOR LETTERS AND COPY" 

480 G0SUB3390JIF Z=0 THEN 480 

490 PRINT "OUTPUT ■ , I G0SUB3360 J IF Z=0 THEN 490 

500 G0SUB3220 'CHECK FOR EXISTING FILE 

510 0PEN"0»,1,FZ$,DR 

520 GOSUB 3180 'SET UP HEADER OF FILE 

530 PRINTIPRINT?PRINT"FILE HEADER LABEL = " JMID$( A$, INSTR ( At , " ' • ) ) 

540 PRINT "«=<== BEGIN TEXT ENTRY =«=«»■ 

550 PRINT! PRINT 

560 LINEINPUT A* J IF A*="END" THEN 630 

570 IF LEFT$<A$,1)= B ?" THEN 590 

580 A1$=A*JA*=STR*(LN)+"' " +A* JPRINT#1 , A* J LN=LN+10{G0T0 560 

590 IF A$= B ?" THEN PRINT JPRINTA1*JG0T0 560 

600 T=VAL(MID$(A$,2))!IFT<10RT>132THENPRINT"TAB INCORRECT" J GOTO 560 
610 T*=""JFOR 1=1 TO TIT$=T$f" "{NEXT 

620 PRINTT$, ?LINEINPUTA$?A*:=T*+A$JG0T0580 

630 G0SUB650J CONSOLE CI ,P1 {CLOSE !PRINT"EXITING CREATION ROUTINE" 
640 GOTO 730 

650 CLOSE! INPUT"DO YOU WANT A LISTING OF THE FILE",Z1* 

660 IF LEFTS <Zl$,l)= a N" THEN RETURN 

670 0PEN 8 I",1,FZ$,DR{INPUT"D0 YOU WANT LINE NUMBERS LISTED" J Zl* 
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URD PROC 8/11/1977 



„ n 



CD 



o 

TO 

m 



680 INPUT "HIT <CR) WHEN RE ADY" JZZ*J CONSOLE C2. P2IPRINT 

690 IF E0F<1> THEN RETURN 

700 LINEINPUTtl.A* 

710 IF LEFT*<Z1*»1)«'Y"THEN PRINTA*EL8EPRINTMID*< A* . INSTRC A*. a ' s )+ 1 ) 

720 GOTO 690 c 

730 PRINT-NUMBER OF RECORDS WRITTEN = " * <LN-i000>/10 o 

740 GOTO 270 o 

750 REM CREATE NAME AND ADDRESS FILE o 

760 LN» 1000 J PR I NT "GREAT I ON ROUTINE FOR NAME AND ADDRESS FILE - =< 
770 G0SUB3390SIF Z=0 THEN 770 

780 PRINT-OUTPUT ■ 9 {G0SUB3360? IF Z=0 THEN 780 

790 G0SUB3220 'CHECK FOR EXISTING FILE ^ 

800 OPEN°0".ls>FZ*.DR «> 

810 GOSUB 3180 'SET UP HEADER OF FILE -•» 

820 PRINTJPRINTJPRINT'FILE HEADER LABEL = n 9 MID* ( A* t INSTR ( A* r " ' ' ) > i 

830 GOSUB 840IG0T0 1010 £ 

840 PRINT ■=*=== BEGIN TEXT ENTRY *««' £ 

860 LINEINPUT A* J IF A*<>'END" THEN GOSUB 870JG0T0 860 ELSE RETURN ~ 

870 IF LEFT*(A*»1)="?" THEN 900 

880 IF F>8 THEN GOSUB 1030 ?F=0? RETURN 

890 A 1 *=A* t F=F+ 1 : AT* < F ) = A* { RETURN 

900 IF A*="?" THENPRINT J PRINTA1*: RETURN g 

910 A*«MID*(A*»2)JG0SUB 920JG0T0960 g 

920 IF LEN<A*)<1 OR LEN(A*)>26 THEN 990 = 

930 F0RI=:1T0LEN(A*) ?MID*(A$.I.l)==FNZ$<MID*<A*.I.l) ) {T*==MID*(A*.I.l^ 

940 IF T*=>'A" AND T*<="Z" THEN NEXT ELSE 990 o 

950 RETURN 

960 T*=A*{LINEINPUT 8 SALUTATI0N? a 9 A* JF=F + 1J AT* ( F) - " ? "iT** " - "+ A* 

970 FOR 1 = 1 TO F{PRINT#1.MID*(STR*(LN).2H B ' "+ AT*( I ) JLN«=LN+ 10SNEXT 

980 F=0:PRINTJPRINT"===== NEXT ENTRY a**"**": RETURN 

990 PRINT "GROUP CODES MUST CONSIST OF 1 TO 26 UPPER CASE LETTERS ONLY 1 

1000 I INFTNPUT-PLEASE ENTER THE CORRECT GROUP CODE(S)? "SA*{G0T0920 

1010 G0SUB650 t CONSOLE CI . PI {CLOSES PRINT " EXITING CREATION ROUTINE" 

1020 GOT0730 

1030 PRINTCHR*<26){»THE LAST 10 LINES ENTERED? '" ? PRINT 

1040 FOR J=l TO FJPRINTAT*(J) JNEXT 

1050 PRINT {PRINT" DON'T CONTAIN AN END OF ENTRY MARKER <?>." 

1060 PRINT-START THIS ENTRY OVER AT THE FIRST LINE" 

1070 RETURN 

1080 REM NAME AND ADDRESS FILE EDITOR ROUTINE 

1090 PRINT-EDITOR FOR NAME AND ADDRESS FILE " : PRINT J PRINT 

1100 GOSUB 3390? IF Z=0 THEN 1090 

1110 PR I NT "OUTPUT "S {GOSUB 3360 { FP*=FZ* J IFZ=0THEN1 1 10 

.1.120 PRINT-INPUT " 9 J G0SUB3360ILN==1000 } IF Z=0 THEN 1120 

1130 0PEN"I .2.FZ*.DR 

1 140 OPEN 'OM! 8 .. XYZ . . % DR 

1150 GQSUB3190{LINEINPUT#2.Z1* 'WRITE UPDATED HEADER TO FILE 

1160 PRINTCHR*(26)tF=i:G0SUB1460:iF F=0 THEN GOTO 1510 

1170 PRINT'THIS SECTION OFFERS 6 MODES OF OPERATION. " {PRINT 

1180 PRINT* " I ~ ADD A LINE AFTER LINE SPECIFIED* 

1190 PRINT. "2 - DELETE LINE SPECIFIED" 

1200 PRINT. "3 - REPLACE LINE SPECIFIED" 

1210 PRINT. a 4 - DELETE THIS ENTRY" 

1220 PRINT. "5 - GET NEXT ENTRY" 

1230 PRINT. "6 - END 8 

1240 PRINTIPRINT?PRINTTAB< 12) ? a LINE NO, CONTENTS" {PRINT 

1250 PRINTTAB<16HU B 9 AT* ( 1 ) JSPC ( 4 ) 9 ■ (GROUP CODES) ~ 
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URD PROC 8/11/1977 - 3 - 

1260 FORJ-2 TO F JPRINTTABC 15) J J JSPC<5> ?AT* ( J) J NEXT J PRINT I PRINT 

1270 INPUT'WHICH FUNCTION- ?F9 J IF F9<10R F9>6 THEN 1170 

1280 1TF9<4THENINPUT"LINE NUMBER" >F8 ELSE 1300 

1290 IF F8<1 OR (F8+l>10 AND F9=l) OR F8>F THEN 1280 

1300 ON F9 GOTO 1380* 1360* 1340 , 1 160 * 1330 c 

1310 GOSUB 1440 £ 

1320 F=ltG0SUB1460JIFF<lTHENG0TO1510ELSEG0SUB1440JG0T0132O o 

1330 GOSUB 1440JG0T01160 ° 

1340 PRINT-REPLACEMENT LINE FOR J "F8 J ■ ? " ? JLINEINPUTAT* (F8) =§ 

1350 IF F801THEN 1170 ELSE A$=AT$ < 1 ) JGOSUB 920 J AT$ ( 1 >=A$ JG0T01 170 5 

1360 IF F8=>2THEN F=F-1 JF0RI*F8 TO F J AT$ ( I ) =AT$ ( 1+1 ) J NEXT 5 

1370 GOTO 1170 _ 
1380 IFF8<FTHENLINEINPUT"NEW LINE? " 9 A$ JF=»F + 1 JF0RI=FT0F8 + 1STEP~1ELSE1 17*8 

1390 AT$<I)==AT*<I~1> JNEXTJAT$(F8+1)=A$JG0TQ 1170 ^ 

1400 INPUT'DO YOU WISH TO ADD ANY ADDITIONAL ENTRIES' JZ1* ' 

1410 IF LEFT*(Z1*»1)="Y" THEN GOSUB 840 £ 

1420 CLOSE J IF FP$=FZ$ THEN KILLFZ*,DR m 

1430 NAME" . .XYZ. . " ASFP$ * DR JFZ$:==FP$JG0SUB650 JC0NS0LEC1 >P1 J CLOSE {GOTO 270^ 

1440 AT$<F) = "?"+AT$(1H" •-"+AT$<F> J FOR 1=2 TO F ^ 

1450 PRINT#1,MID*(STR$<LN),2>+-' " iAT* ( I ) JLN=LN+10 J NEXT J RETURN o 

1460 IFE0F<2)THENF=0:RETURNELSELINEINPUT#2»A*JA*=MID*(A*»INSTR(A$»"'-)+2.) 
1470 IF LEFT$(A$* !>="?" THEN F1 = INSTR ( A* r " - " ) ELSE 1500 £j 

1480 AT*<i>sMID*(A$»2»Fl-2>:F=F+i:AT*<F)=MID*<A*»Fl+l) 5 

1490 RETURN g 

1500 F=F+i:AT$(F)=A*JGOTO 1460 = 

1510 INPUT-ARE THE CHANGES CORRECT" * 7.1% 3 

1520 IFLEFT*<Z1*»1>=-N"THENPRINT" ABORTING JOB* NO FILES CHANGED" P 

1530 IFLEFT* ( Zl $ , 1 ) = • N ■ THENCLOSE J G0T0270 

1540 GOTO 1400 

1550 REM SET-UP FOR EDITING USING BASIC 

1560 PRINT-EDITOR ROUTINE FOR TEXT FILES" 

1570 PRINT'THIS SECTION WILL SET UP THE FILE FOR EDITING USING THE ■ 

1580 PRINT-EDITOR WHICH IS BUILT INTO BASIC. " JPRINT J PRINT 

1590 Z==1JINPUT"FILE NAME TO EDIT " *FZ$ JG0SUB3370 J IFZ=0THEN1590 

1600 Z=l J INPUT "DRIVE NUMBER " 9 DRJ G0SUB3400 J IFZ=0 THEN 1600 

1610 INPUT B DO YOU WISH A LIST OF THE FILE BEFORE EDITING" JZ1* 

1620 IF LEFT*(Z1*»1) = "Y- THEN OPEN - 1 " , 1 , FZ$ , DRELSE 1670 

1630 INPUT "HIT <CR) WHEN READY " J ZZ* J CONSOLE C2*P2 

1640 IF EOF <1> THEN 1670 

1650 LINEINPUTtl r A* JPRINTA* 

1660 GOTO 1640 

1670 CONSOLE CI, PI J LOAD FZ*»DR 

1680 REM PRINT COPY OF TEXT 

1690 PRINT "THIS SECTION PRINTS A COPY OF THE TEXT" 

1700 G0SUB3390 JGOSUB 1880 JG0SUB1850 J INPUT'NUMBER OF COPIES" *NC 

1710 INPUT "LINE UP PAPER AND HIT (CR) WHEN READY" J ZZ* J CONSOLE C2?P2 

1720 NT=LNJIFNC>0THENG0SUB1820JNC:=NC~1JG0T0 1740 

1730 CONSOLEClyPlJPRINT-EXITING COPY PRINT-OUT " JG0T0270 

1740 IFLEFT*(Z2$»1)=-N"THEN IF NC<1THEN 1720 ELSECONSOLE CI *P1 JG0T01710 

1750 IF NT=OTHEN 1720 ELSE IF NT>0 THEN PRINT JNT=NT~1 JGOTO 1750 

1760 NC=NC-fl J CONSOLE CI t PI J PRINT JPRINT 

1770 PRINT'YOUR DOCUMENT IS TOO LONG FOR THE FORM SIZE SELECTED." 

1780 INPUT" DO YOU WANT TO CONTINUE PRINTING "? ZZ$ 

1790 IF LEFT*(ZZ*,1)="Y" THEN GOSUB 1860JG0T0 1710 

1800 INPUT-DO YOU WANT TO RESTART" *ZZ* 

1810 IF LEFT*(ZZ*»1)="Y' THEN 1700 ELSE 1730 

1820 OPEN" I -»i»FZ*» DRJ GOSUB 1920 

1830 IF EOF(l) THEN CLOSE 1 J RETURN 
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1840 LINEINPUT#l s >A*IPRINTMID*<A*s>INSTR(A* ! > " ' " )+2> INT»NT-i:G0T0 1830 
1850 INPUT" CONTINUOUS FORMS 3 ?Z2* X IF LEFT*(Z2** 1 > = "N" THEN RETURN 
1860 INPUT-NUMBER OF LINES PER PAGE"*LN 
1870 RETURN 

1880 PRINT'INPUT TEXT " » JG0SUB3360 JIF Z=0 THEN 1880 g 

1890 0PEN"I"»1»FZ*»DRJG0SUB1920:CL0SE 1 <"> 
1900 PRINTMID*(A*»INSTR<A*»"' , )+1)JINPUT"IS THIS THE CORRECT FILE"*Zijh 

1910 IF LEFT*<Z1*»1>="N"THEN 1880 ELSE RETURN ^ 

1920 LINEINPUT#1»A*JIF LEN(A$)>0 THEN RETURN ELSE 1920 2 

1930 REM PRINT LETTERS WITH SALUTATION ENTER FROM KEYBOARD + ENV* o 

1940 PRINT"PRINT LETTERS WITHOUT NAME AND ADDRESS FILE* ' tPRINT JPRINT 3 

1950 G0SUB3390IG0SUB 1880 g 

1960 GOSUB 2110JG0SUB2250 -3 
1970 INPUT-LINE UP PAPER AND HIT (CR) WHEN READY ■ 9 ZZ$*CONSOLE C2»P2 

1980 PRINTTAB < Tl >?Z8$* PRINT *PRINTTE$SPRINTZ5$ J PRINT J PRINT ' 

1990 GOSUB 1820JC0NS0LE Cls.Pl o 

2000 INPUT"D0 YOU WANT TO PRINT AN ENVELOPE " 5 ZZ* m 

2010 IF LEFT$(ZZ*»1)="Y" THEN GOSUB 2060 -J 

2020 INPUT "ANOTHER LETTER" J ZZ*: IF LEFT$<ZZ*» 1 >="N" THEN 2100 ^ 

2030 INPUT-SAME DOCUMENT "*ZZ* t IF LEFT* <ZZ* ? 1 ) = "N " THEN GOSUB 1880 o 

2040 INPUT "SAME NAME AND ADDRESS " i ZZ* ? IF LEFT* < ZZ* r 1 )="N » THEN 1960 ^ 

2050 GOTO 1970 £ 
2060 PRINT* INPUT "PLACE ENVELOPE IN PRINTER AND HIT (CR) WHEN READY" *Zg& 

2070 CONSOLE C2»P2 JPRINTTAB(35> $ JF0RI«1T0 LEN(TE*)-2 p 
2080 PRINTMID*(TE* ? I ? l)5:iF ASC( MID* ( TE* , I ) ) =10 THEN PRINTTAB < 35) 9 

2090 next:fori=i to s : print: next: console ci» pi: return 5 

2100 PRINT-EXITING LETTER PRINTING ROUTINE" JGOTO 270 P 

2110 PRINT : PR INT 

2120 PRINT 8 ENTER EACH LINE OF THE NAME AND ADDRESS AS IT WILL APPEAR ON 1 

2130 PRINT "THE LETTER* AFTER THE LAST LINE HAS BEEN ENTERED* TYPE A " 

2140 PRINT" '?' AND HIT <CR)*"JTE*=" 

2:1.50 LINEINPUTA*?IF LEFT*( A*? 1 ) = "?" THEN 2180 

2160 IF LEN<TE*+A*>>250 THEN PRINT " NAME/ADDRESS TOO L0NG":G0T0 2110 

2170 TE*==TE*+A*+CHR*(13)+CHR*(10):GQT0 2150 

2:180 IF LEN(TE*)<3 THENPRINT " NAME AND ADDRESS TOO SHORT" IGOTO 2110 

2190 PRINTJPRINTJLINEINPUT-INPUT DATE (CR) USES DATE ENTERED? °?Z8* 

2200 IF Z8*~ B " THEN Z8*=Z9* 

2210 TNPUT'NUMBER OF SPACES TO INDENT DATE (CR) USES LAST ENTRY 8 SZ7* 

2220 IF Z7*=-" a THEN Z7*=Z6* ELSE Z6*=Z7* X T1=VAL ( Z7* ) 

2230 IF TKO OR Tl>132 THEN 2210 

2240 RETURN 

2250 LINEINPUT "SALUTATION? B ?Z5*tRETURN 

2260 REM PRINT LETTERS FROM NAME AND ADDRESS FILE 

2270 PRINT'PRINT LETTERS FROM NAME AND ADDRESS FILE" 

2280 GOSUB 3390 'GET DRIVE NUMBER 

2290 GOSUB 1880 X FX*=FZ* 'GET TEXT NAME AND SAVE TEMP 

2300 GOSUB 2690:FZ*=FX* 'GET NAME AND ADDRESS AND RESTORE TEMP 

2310 GOSUB 1850 'GET CONTINOUS FORMS ANSWERS 

2320 GOSUB 2190 'GET DATE QUESTIONS 

2330 GC*=""JNC=OJLINEINPUT"GROUP CODES TO PRINT? "*A*:GOSUB 2610 

2340 IF LEFT*(ZZ*»1>="N" THEN 2330 

2350 INPUT"LINE UP PAPER AND HIT (CR) WHEN READY" ?ZZ*:CONSOLE C2s>P2 

2360 0PEN b I%2^FY*!-DR:G0SUB2730 

2370 11=1 :NT-LN: GOSUB 2530 : IF IK1 THEN 2480 ELSE PRINTTAB ( Tl ) ?Z8* 

2380 PRINT JF0RI=2 TO II -1 tPRINTTE*( I ) :NEXT J PRINT :PRINTTE* ( II ) 

2390 PRINT ? PRINT J NT=NT- ( 1 1+6 ) 

2400 GOSUB 1820JNC=NC+i:iFLEFT*<Z2$,i>="N" THEN C0NS0LEC1 ,P1 :G0T02350 

2410 IF NT-0 THEN 2370 ELSE IF NT>0 THEN PRINT X NT=NT~1 X GOTO 2410 
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2420 NC=NC-1J CONSOLE CI rPl ?PRINT?PRINT 

2430 PRINT'YOUR DOCUMENT IS LONGER THAN THE FORM SIZE SELECTED." 
2440 INPUT'DO YOUU WANT TO CONTINUE PRINTING" ?ZZ$ 
2450 IF LEFT*<ZZ*i-l) = 'Y" THEN GOSUB 1860JG0T02350 

2460 INPUT'DO YOU WANT TO RESTART" JZZ* c 

2470 IF LEFT*<ZZ*i-l) = "Y» THEN CLOSE X G0T02290 " 

2480 CONSOLE CI , PI I CLOSE JPRINT "ENDING LETTER PRINT OUT ROUTINE" _ 

2490 PRINT-NUMBER OF LETTERS PRINTED = "SNC o 

2500 INPUT'DO YOU WISH TO PRINT MAILING LABELS" >ZZ* ^ 

2510 IF LEFT*<ZZ*»l)a'N" THEN 270 2 

2520 CLOSE? GOTO 3070 §j 

2530 IF E0F(2) THEN 1 1==0 J RETURN ELSE LINEINPUT#2, A* _ 

2540 A*=MID$<A*»INSTR<A*»" / ")+2) S 

2550 IF LEFT$<A*»i )="?» THEN J«INSTR<A*» "-" > ELSE 2600 ^ 

2560 TE*<1)=MID* <A*»2»J-2) J 11 = 11 + 1 JTE*< II >=MID$<A*»J+i > ' 

2570 IF GC*»"ALL" THEN RETURN g 
2580 FOR 1 = 1 TO LEN<GC*> J IF INSTR ( TE* ( 1 ) r MID*(GC$» I r 1 ) )>0 THEN RETUFW 

2590 NEXTi: 11=1 : GOTO 2530 z 

2600 11 = 11 + 1 J TE*< II )=A*JGOTO 2530 ~ 

2610 IF LEN < A* XI THEN ZZ*="N " ? RETURN £ 
2620 IFA$="ALL"THENPRINT"YOU HAVE SELECTED ALL OF THE FILE "ELSE 264CU 

2630 GC*=" ALL": GOTO 2680 m 

2640 PRINT J PRINT 3 YOU HAVE SELECTED THE FOLLOWING GROUP CODES J" g 

2650 PRINTSPRINTTAB(IO) JF0RI=1T0 LEN < A* ) JT$=MID$ ( A* » I , 1 ) £ 

2660 IF T*<"A" OR T*>"Z" THEN 2670 ELSE PRINT" " % T* i :QC*=GC$+T* = 

2670 NEXT h 

2680 PRINT J PRINT J INPUT " IS THIS CORRECT " 9 ZZ* J RETURN o 
2690 PRINT»NAME/ADDRESS • S X G0SUB336OJIF Z=0 THEN 2690 
2700 FY* = FZ* ? OPEN ' I " r 2 r FY* r DR X G0SUB2730 X CLOSE 2 

2710 PRINTMID*<A*j-INSTR<A*» ,/ ") + 1)JINPUT"IS THIS THE CORRECT FILE"?Z1* 

2720 IF LEFT*<Zl$yl)="N"THEN 2690 ELSE RETURN 

2730 LINEINPUT*2»A*:iF LEN(A$)>0 THEN RETURN ELSE 2730 

2740 REM GLOBAL SEARCH AND REPLACEMENT ROUTINE FOR WORD PROCESSOR 

2750 PRINT-GLOBAL SEARCH AND REPLACE ROUTINE "? PRINT 

2760 PRINT "WHEN CHOOSING SEARCH STRING » BE SURE TO PICK ONE WHICH" 

2770 PRINT" IS UNIQUE TO THE ITEM YOU WANT CHANGED OR YOU MAY CHANGE" 

2780 PRINT "AN ITEM THAT YOU DIDN'T MEAN TO CHANGE." 

2790 PR I NT "THIS SECTION WILL PRINT OUT THE CHANGED REPORT AS IT MAKES" 

2800 P R I N T " T H E C H A N G E S " 

2810 GOSUB 3390 : IF Z=0 THEN 2810 

2820 PRINT-OUTPUT " § JGOSUB 3360? FP*=FZ* X IFZ=0THEN2820 

2830 PRINT" INPUT " v IG0SUB3360 JLN=1000JIF Z=0 THEN 2830 

2840 OPEN " I ' , 2 r FZ* r DR 

2850 OPEN " " > 1 » " . ♦ XYZ . ♦ " » DR 

2860 G0SUB3190JLINEINPUT#2»Z1* 'WRITE UPDATED HEADER TO FILE 

2870 LINEINPUT" SEARCH STRING? "$Z2* 

2880 LINEINPUT" REPLACEMENT STRING? ■ ?Z3$ X PRINT J PRINT 

2890 INPUT-READY PRINTER AND HIT (CR) TO CONTINUE "? Zt* 

2900 PRINT "A MOMENT PLEASE" % NR=0 J CONSOLE C2»P2 

2910 IF E0F(2) THEN CLOSE X G0T02960 

2920 LINEINPUT#2 , A* J F0RI = 1T0LEN ( A* ) J IFMID* < A*> I » LEN <Z2* ) )<>Z2$THEN2940 

2930 B*=LEFT*<A*»I-1) JC*=MID* ( A$ ? I+LEN(Z2*) ) X A*=B*+Z3$+C* JNR=NR+1 

2940 NEXT I 

2950 PRINT#1 ? A$?PRINTA*;G0T02910 

2960 CONSOLE CI , PI JPRINT'NUMBER OF RECORDS FOUND AND REPLACED = "?NR 

2970 INPUT-ARE THE CHANGES CORRECT" *Z1* 

2980 IFLEFT*<Z1$,1)«"N"THENPRINT"AB0RTING JOB. NO FILES CHANGED " X G0T0270 

2990 IF FP*=FZ* THEN KILLFZ*»DR 

1140 



URD PROC 



8/11/1977 



3000 

3010 

3020 

3030 

3040 

30S0 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 



NAME 
1 ?A*?GOSUB 2610 



?ZZ*? CONSOLE 



-< 
C1?P1 



CD 



3070: 



NAME B ^XYZ t ."AS FP*»DRJGOTO 270 

REM PRINT MAILING LABELS 

PRINT "PRINT MAILING LABELS 8 

G0SUB3390 'DRIVE NUMBER 

QOSUB 2690 'GET NAME AND ADDRESSS FILE 

GC*=" " JLINEINPUT'GROUP CODES TO PRINT? 

IF LEFT*(ZZ$ S -1) = B N B THEN 3050 

INPUT "LINE UP LABELS AND HIT (CR) WHEN READY 

NOO: PRINT 

F0R.1>1T08 :F0RJ=1T020 ? PRINT "X"y?NEXTJ? PRINT JNEXTI JCONSOLE 

INPUT" IS THE LINE UP CORRECT" *ZZ$ J IF LEFT*(ZZ*» 1 ) = a N 8 THEN 

CONSOLE C2 t P2 ? OPEN » I % 2 , FY* r DR ? G0SUB2730 

II = 1JB0SUB 2530 J IF IK1 THEN 3160 

PRINT IFOR I =2 TO 1 1 -1 ? PRINTTE* ( I ) ? NEXT 

F0RI«II-1 TO 8? PRINT? NEXT 

NC=NC+1?G0T0 3120 

CONSOLE ClyPUPRINT-END OF MAILING LABEL ROUTINE" m 

PRINT-NUMBER OF LABELS PRINTED = SNCJGOTO 270 3 

A*=STR*<LN> + " "+"FILE NAME a fFZ*+ a CREATION DATE? "+Z9* {G0T0321CE 

A**STR*<LN>+"' "+"FILE NAME "+FP*+" REVISION OF? "+FZ* 

A*=A*+" DATE REVISED? "+Z9* ? GOT03210 

PRINTtl? A* JLN*LN+10J RETURN 

0PEN B I%1H"Z$?DR?CL0SE?PRINT»FILE ALREADY EXISTS USING THAT NAMEg! 

G0SUB3340 






CO 
O 



O 

73 

m 
tn 



73 
O 



INPUT "DO YOU WISH 



THE EXISTING FILE"*Z1$ ^ 
5 ?G0SUB3360 ? IFZ=0THEN325g 



o 



■"REP" THEN 3270 



TO RENAME OR REPLACE 
IFLEFT*<Zl*»i>="N"THENPRINT"NEW OUTPUT 
IF LEFT*(Z1*»1)="N" THEN RETURN 
INPUT "WHICH (REN OR REP)"?Z1* 
IF LEFT*<Zi*»3)0"REN" THEN IF LEFT* <Z1* ?3) 
IF LEFT* (Zl*»3)= "REP" THEN RETURN 
PRINT "CHANGE NAME FROM ">FZ*J" TO 8 5 ? INPUTFP* 
Z=lJG0SUB3370:iF Z=0 THEN 3300 
NAME FZ* AS FP*»DR 
RETURN 
PRINT'THE FILES AVAILABLE ON THIS DISC ARE J" ?PRINT ? FILES DRtPRlNi 

RETURN 

INPUT-FILE NAME a ?FZ*?Z:=l 

IF LEN(FZ*)<1 OR LEN(FZ$>>8 THEN PRINT" ILLEGAL FILE NAME"{Z=0 

RETURN 

INPUT "DRIVE NUMBER" SDR {Z==l 

IF DR<0 OR DR>15 THENPRINT " ILLEGAL DRIVE NUMBER" ?Z==0 

RETURN 

IF ERR==56 THEN CLOSE {PRINT "MOUNTING DRIVE "?DR?M0UNT DRJRESUME 



IF ERRC 
IF F9=l 
IFF9=4 
IF F9=8 
IF F9=3 
F9=2 
F9=5 
F9=6 
F9=7 
F9=7 
F9=10 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
ON 



>53 THEN 3540 

THEN RESUME 510 
THEN GOSUB 3340 J RESUME 1590 
THEN GOSUB 3340 ? CLOSE ? RESUME 
3340? CLOSE? RESUME 

800 
3340? CLOSE 1? RESUME 
3340? CLOSE 1? RESUME 



GOSUB 



2830 
1120 



THEN 

THEN RESUME 

THEN GOSUB 3340?CL0SE 1 {RESUME 1700 
THEN GOSUB 3340?CL0SE 1 {RESUME 1950 
AND ERL-1890 THEN G0SUB3340 ?CLOSE 1 {RESUME 2290 
AND ERL=2700 THEN GOSUB 3340? CLOSE 2? RESUME 2300 
AND ERL-2700 THEN GOSUB 3340 {CLOSE 2? RESUME 3040 



ERR-58 THENPRINT'OUTPUT FILE ALREADY EXISTS " {G0SUB3560 SRESUMh 

ERROR GOTO 

GOSUB 3340? INPUT a DO YOU WISH TO REPLACE THE FILE"?Z2* 
IF LEFT*<Z2* ! >l> = ' , Y i, THEN KILLFP*»DRt RETURN 
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WRD PROC 8/11/1977 - 7 - 

3580 LINEINPUT'NEW OUTPUT FILE NAME? "JFP* 

3590 IFLEN<FP*X10RLEN<FP*)>8THENPRINT" ILLEGAL FILE NAME 8 JG0T03580 

3600 RETURN 



o 
o 

o 

o 
-a 

-< 

73 

v— i 
Ci 



«X5 
~-4 



O 



O 

73 

m 
co 

m 

73 

o 

a: 



o 
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o 
o 

o 
o 

-a 

-< 

i-» 






WORD PROCESSING TEXT EDITOR REV. J. , 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH w 

RUB- 2 

re mo Ve^sL 

ENTER TODAY'S DATE (MM/DD/YY OR SEPT* 26» 1977)?. "~~ 

WORD PROCESSING TEXT EDITOR REV, 1 2 

UCC •••• COPYRIGHT 1977 BY SCIENTIFIC RESEARCH <"> 



73 

m 

CO 



THE FOLLOWING FUNCTIONS AVAILABLE ARE? =» 



73 
O 



1 - BUILD THE TEXT OR LETTER 

2 •••• CREATE THE NAME AND ADDRESS FILE 

3 "■• EDI.T THE NAME AND ADDRESS FILE 

4 - EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND YOU USE 

THE EDITOR IN BASIC 

5 •••• PRINT A COPY OF THE TEXT 

A - PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER 

7 ■•■• PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 - GLOBAL SEARCH AND REPLACE 

9 - PRINT MAILING LABELS 
10 - END 



WHICH WOULD YOU LIKE TO DO? 1 
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TEXT CREATION ROUTINE FOR LETTERS AMD COPY o 

DRIVE NUMBER? J_ ° 

OUTPUT FILE NAME? LETTER! o 

—————— -a 

-< 

TO 
f — i 

FILE HEADER LABEL = ' FILE NAME LETTER! CREATION DATE I AUG, 12, 1977 § 

= ==== BEGIN TEXT ENTRY ===== 

t— • 

^ indent 5" spites erroh § 

?j5^ f~~ "Rub: rentes O i 

WE HAVE REVI EWED YOUR PROPOSED PLANS QfFOR THE INSTALLATION OF YOLffi 

MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR ~ 

OFFER , WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS. 3 



SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINE S 

— ■ ■ - — _ ___ 



o 



? :l. 4 



TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS m 



CO 



IN EXCESS OF NORMAL REQUIREMENTS. § 



SECTION R-5 CHANGES IN WORK PERFOR MANCE REQUIRED BY LACK OF ~ 

?:l.4 — — — _ __ — . z 

APPROVALS OR OTHER DELAYS CAUS ED BY THE CLIENT WILL 

?:l.4_ — • 

EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 

DESIGNATED BY THE CONTRACTOR. 

?5_ 

WE FELL. THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 

ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO 

RECONSIDER THESE TERMS , PLEASE REPLY BY SEPTEMBER 1 , OR WE 
WILL CONSIDER YOUR OFFFER WITHDRAWN. """""" 

?45 

SINCERELY YOURS r 



?45 



END 



error se«@: Leonard Rogers 

ffl. MANAGER OF PU R C H A S I N G 



1144 



cr 
o 

DO YOU WANT A LISTING OF THE FILE?_Y_ £ 

DO YOU WANT LINE NUMBERS LISTED? N o 

HIT <CR) WHEN READY?_ £ 

i— i 

FILE NAME LETTER! CREATION DATE? AUG. 12» 1977 § 

WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR^ 

MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR vo 

OFFFR» WF SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS, ^ 



SFCTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES oo 

TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS 
IN EXCESS OF NORMAL REQUIREMENTS, 



o 

t— i 
m 



o 

TO 



SFCTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME g 

DESIGNATED BY THE CONTRACTOR* m 

73 

WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN S 

ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO ~ 

RECONSIDER THESE TERMS , PLEASE REPLY BY SEPTEMBER If OR WE o 
WILL CONSIDER YOUR OFFFER WITHDRAWN, 

SINCERELY YOURS ? 



LEONARD ROGERS 
MANAGER OF PURCHASING 



EXITING CREATION ROUTINE 

NUMBER OF RECORDS WRITTEN = 29 

WORD PROCESSING TEXT EDITOR REV, 1.1 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 



THE FOLLOWING FUNCTIONS AVAILABLE ARE J 



1 - BUILD THE TEXT OR LETTER 

2 - CREATE THE NAME AND ADDRESS FILE 

3 '- EDIT THE NAME AND ADDRESS FILE 

4 •••• EDIT THE TEXT FILE (NOTES PROGRAM EXITS AND YOU USE 

THE EDITOR IN BASIC) 

5 -• PRINT A COPY OF THE TEXT 

6 •- PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE, SALUTATION ENTERED FOR EACH LETTER 

7 - PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 - GLOBAL SEARCH AND REPLACE 

9 - PRINT MAILING LABELS 



10 •■•• END 
WHICH WOULD YOU LIKE TO DO? 2 
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CREATION ROUTINE FOR NAME AND ADDRESS FILE 

D RIVE NUMBER? 1 

OUTPUT FILE NAME? NAME 



o 
o 



FILE HEADER LABEL = ' FILE NAME NAME CREATION DATE J AUG* 12* 197fe 
===== BEGIN TEXT ENTRY ===== -< 

73 
►— ) 
CD 



JOHN 


W * 


SWAIN 




1923 


TOP 


'ANGO 


PLACE 


CROF 


TON* 


MD* 


21114 



v --J 

?ACGK ' • 

SALUTATION? DEAR JOHN? g 

===== NEXT ENTRY ===== S 

THE COMPT._.UTRAN CORPORATION ~ 

15 S* MAIN ST* £ 



FRANKLIN * NEW YORK 11 388 

?JI...MN ~ rn 

SALUTATION? GENTLEMEN t 5 

== = ^ NEXT ENTRY ===== £ 

SCIENTIFIC RESEARCH INST, ~ 

17 17.... 2 FARM I NOT ON CT* p 

CROP TON* MP, 21114 

? CLQ 

S A I... U T A T 1 N ? GENTLEMEN? 

===== next ENTRY ===== 
END 



DO YOU WANT A LISTING OF THE FILE?_Y_ 
DO YOU WANT LINE NUMBERS LISTED? Y 
HIT CCR) WHEN READY? 

1000' FILE NAME NAME CREATION DATE? AUG* 12* 1977 
10;.0' JOHN W* SWAIN 
1020' 1923 TOP ANGO PLACE 
1030' CROP TON* MD* 21114 
1 4 ' ? A C G K • •■ D E A R J H N * 
1 5 ' T H E C M P U T R AN CO R P R A T ION 
1060' 15 S* MAIN ST, 
1070' FRANKLIN* NEW YORK 11388 
1 8 ' ? J I... M N - G E N T I... E MEN* 
1090' SCIENTIFIC RESEARCH INST* 
1100' 1712 FARMINGTON CT* 
1110' CROP TON* MD* 21114 
1120' ?CLQ -GENTLEMEN I 
E X I T I N G C R E A T 1 N R U T I N E 
NUMBER OF RECORDS WRITTEN = 13 
WORD PROCESSING TEXT EDITOR REM* 1*1 
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 
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cr 
o 
o 

THE FOLLOWING FUNCTIONS AVAILABLE ARE J g 

1 •••• BUILD THE TEXT OR LETTER 2 

2 - CREATE THE NAME AND ADDRESS FILE g 

3 - EDIT THE NAME AND ADDRESS FILE -• 

4 ■••• EDIT THE TEXT FILE (NOTE! PROGRAM EXITS AND YOU Q$E 



THE EDITOR IN BASIC) ^ 



5 •- PRINT A COPY OF THE TEXT , 

6 ■■■■ PRINT A COPY OF THE LETTER WITHOUT THE NAME ^ 

AND ADDRESS FILE* SALUTATION ENTERED FOR EACH LET^R 

7 •• PRINT LETTERS FROM NAME AND ADDRESS FILE G2 

8 - GLOBAL SEARCH AND REPLACE d 

9 - PRINT MAILING LABELS 2 
10 -• END ° 

TO 

m 
WHICH WOULD YOU LIKE TO D0?_3_ <£ 

EDITOR FOR NAME AND ADDRESS FILE 2 



o 



DRIVE NUMBER? 1 
OUTPUT FILE NAME? NAME 
INPUT FILE NAME? NAME 

THIS SECTION OFFERS 6 MODES OF OPERATION* 

1 - ADD A LINE AFTER LINE SPECIFIED 

2 •••• DELETE LINE SPECIFIED 

3 •- REPLACE LINE SPECIFIED 
■4 - DELETE THIS ENTRY 

5 •••• GET NEXT ENTRY 

6 -• END 



LINE NO* CONTENTS 

1 ACGK (GROUP CODES) 

2 JOHN W* SWAIN 

3 1923 TOPANGO PLACE 

4 CROFTON* MD* 21114 

5 DEAR JOHN? 



WHICH FUNCTION? 1 
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LINE NUMBER? J>- o 

NEW LINE? PRESIDENT ...OF SWAIN ELECTRONI CS ° 

THIS SECTION OFFERS 6 MODES OF OPERATION* § 

-< 

1 - ADD A LINE AFTER LINE SPECIFIED £ 

2 - DELETE LINE SPECIFIED 5 



3 ••■• REPLACE LINE SPECIFIED 

4 •■•• DELI 

5 - GET 

6 - END 



4 •■•• DELETE THIS ENTRY i° 

5 - GET NEXT ENTRY ^ 



LINE NO. CONTENTS 

1 ACGK (GROUP CODES) 

2 JOHN W* SWAIN 



CO 

o 



o 

73 



3 PRESIDENT OF SWAIN ELECTRONIC^ 

4 1923 TOPANGO PLACE g 

5 CROFTON* MD» 21114 g 

6 DEAR JOHN* = 



o 



WHICH FUNCTION? 3 

LINE NUMBER? 4 

REPLACEMENT LINE FOR? 4 ?1923 TOPANGO PL. 

THIS SECTION OFFERS 6 MODES OF OPERATION* 

1 - ADD A LINE AFTER LINE SPECIFIED 

2 ■■•• DELETE LINE SPECIFIED 

3 -• REPLACE LINE SPECIFIED 

4 - DELETE THIS ENTRY 

5 ■••■ GET NEXT ENTRY 

6 •••• END 



LINE NO. CONTENTS 

1 ACGK (GROUP CODES) 

2 JOHN W* SWAIN 

3 PRESIDENT OF SWAIN ELECTRONICS 

4 1923 TOPANGO PL* 

5 CROFTON, MD. 21114 

6 DEAR JOHN* 



WHICH FUNCTION? 
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o 
o 



o 



LINE- NUMBER?_2_ ? 

THIS SECTION OFFERS 6 MODES OF OPERATION* ;< 

l-H 

j. - ADD A LINE AFTER LINE SPECIFIED g 

2 •••• DELETE LINE SPECIFIED 

3 - REPLACE LINE SPECIFIED *g 

4 •• DELETE THIS ENTRY -J 

5 -• GET NEXT ENTRY « 

6 •- END £ 

*— * 
m 
zz. 
—i 



.INE NO, CONTENTS 



o 



1 ACGK (GROUP CODES) 

2 PRESIDENT OF SWAIN ELECTRONIC^ 

3 1923 TOPANGO PL* m 

4 CROFTON? MD* 21114 po 

5 DEAR JOHN? = 



o 



WHICH FUNCTION? 3 

LINE NUMBER? 2 

REPLACEMENT LINE FOR % 2 ? SU)AIN ELECTRON I N-CS 

THIS SECTION OFFERS 6 MODES OF OPERATION* 

1 •••• ADD A LINE AFTER LINE SPECIFIED 

2 - DELETE LINE SPECIFIED 

3 -- REPLACE LINE SPECIFIED 

4 - DELETE THIS ENTRY 

5 ••" GET NEXT ENTRY 

6 -•• END 



LINE NO* CONTENTS 

;|. ACGK (GROUP CODES) 

2 SWAIN ELECTRONICS 

3 1923 TOPANGO PL* 

4 CROFTON? MD* 21114 

5 DEAR JOHN* 



WHICH FUNCTION? 
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THIS SECTION OFFERS 6 MODES OF OPERATION. 

1 ~ ADD A LINE AFTER LINE SPECIFIED 



2 •••• DELETE LINE SPECIFIED R 

3 ••- REPLACE LINE SPECIFIED 

4 ••- DELETE THIS ENTRY ^ 

-< 

TO 
t— i 



5 •-■ GET NEXT ENTRY 

6 -■ END 



LINE NO. CONTENTS i$ 

1 JLMN (GROUP CODES) ' 

2 THE COMPUTRAN CORPORATION £ 

3 15 S. MAIN ST. £ 

4 FRANKLIN* NEW YORK 113883 

5 GENTLEMEN! 



-n 
i— i 
o 

TO 

m 

CO 

m 
THIS SECTION OFFERS 6 MODES OF OPERATION. g 

3C 



WHICH FUNCTION? 



1 "•• ADD A LINE AFTER LINE SPECIFIED^ 

2 ■••• DELETE LINE SPECIFIED .° 

3 - REPLACE LINE SPECIFIED 

4 - DELETE THIS ENTRY 

5 •••• GET NEXT ENTRY 

6 •••• END 



LINE NO. CONTENTS 

1 CLO (GROUP CODES) 

2 SCIENTIFIC RESEARCH INST. 

3 1712 FARMINGTON CT. 

4 CROFTONy MD. 21114 

5 gentlemen: 



WHICH FUNCTION? 6 

ARE THE CHANGES CORRECT? Y 

DO YOU WISH TO ADD ANY ADDITIONAL ENTRIES? Y 

====== BEGIN TEXT ENTRY ===== """" 



SIMPLEX TIME RECORDER CO, 
25 S. LINCOLN ST. 
GARDNER .... > MA. 01440 

SALUTATION? PEAK- fiTRl 

===== next ENTRY ===== 
END 
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DC) YOU WANT A LISTING OF THE FILE?_X 
DO YOU WANT LINE NUMBERS LISTED? N 
HIT <CR) WHEN READY? 

FILE NAME NAME REVISION OF 5 NAME DATE REVISED J AUG, 12 f 1977 

SWAIN ELECTRONICS = 

1923 TOPANGO PL. ° 

GROFTONv MD. 21114 g 

?ACGK DEAR JOHNr 3 

THE COMPUTRAN CORPORATION 2 

t'=i S. MAIN ST. g 

FRANKLIN? NEW YORK 11388 ~* 

?JLMN- GENTLEMEN S £ 

SCIENTIFIC RESEARCH INST. ^ 

1712 FAR MI NO TON CT. , 

CROFTONs- MD. 21114 w 

'i'CLQ-GENTLEMEN? 2 

SIMPLEX TIME RECORDER CO. g 

25 S. LINCOLN ST. d 

GARDNER? MA. 01440 3 

?Z DEAR SIRS ° 

WORD PROCESSING TEXT EDITOR REV. 1.1 ^ 

UCC -- COPYRIGHT 1977 BY SCIENTIFIC RESEARCH e/> 

3> 
■73 
o 

THE FOLLOWING FUNCTIONS AVAILABLE ARES ^ 

1 •■•• BUILD THE TEXT OR LETTER " 

2 - CREATE THE NAME AND ADDRESS FILE 

3 - EDIT THE NAME AND ADDRESS FILE 

4 ■•• EDIT THE TEXT FILE (NOTES PROGRAM EXITS AND YOU USE 

THE EDITOR IN BASIC) 

5 - PRINT A COPY OF THE TEXT 

6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER 

7 • PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 - GLOBAL SEARCH AND REPLACE 

9 ••• PRINT MAILING LABELS 
10 •• END 

WHICH WOULD YOU LIKE TO DO? 5 

THIS SECTION PRINTS A COPY OF THE TEXT 

DRIVE NUMBER? 1 

INPUT TEXT FILE NAME? LETTER 1 

FILE NAME LETTER 1 CREATION DATES AUG. 
I S T H I S T H E C R R E C T F I L E ? _y_ 
CONTINUOUS FORMS? N 
NUMBER OF COPIES? 2 
LINE UP PAPER AND HIT (CR) WHEN READY?. 
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hmrur. "l-^SnEf^IES*! Y0UR PR0P0SE » PLANS FOR THE INSTALLATION OF YOUR 
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR 
OFFER. WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS* 



SECTION C-2 



THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES 
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS 
IN EXCESS OF NORMAL REQUIREMENTS . 



o 
o 



SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY 
APPROVALS OR OTHER DELAYS CAUSED BY THE 



EXTEND THE COMPLETION TERM BY A LENGTH OF 
DESIGNATED BY THE CONTRACTOR* 



LACK OF 
CLIENT WILg 



o 
o 



TIME 



CD 

IE 



WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 
RECONSIDER THESE TERMS* PLEASE REPLY BY SEPTEMBER 1, OR WE 
WILL CONSIDER YOUR OFFFER WITHDRAWN, 



10 



CO 

o 



SINCERELY YOURS 



LINE UP PAPER AND HIT <CR) WHEN READY? 



LEONARD 
MANAGER 



-n 
o 

TO 

m 

CO 



OF PURCHASIf 



IE 



O 
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WF HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR 
MODFI 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR 
OFFER? WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS, 

SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES = 

TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS R 

TN EXCESS OF NORMAL REQUIREMENTS, o 

o 

SECTION R-S CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF £ 
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WIL§ 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 
DESIGNATED BY THE CONTRACTOR, 



zc 



W3 



O 



WF FEU... THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 
RECONSIDER THESE TERMS ? PLEASE REPLY BY SEPTEMBER 1 ? OR WF 
WILL CONSIDER YOUR OFFFER WITHDRAWN, m 

S? * SINCERELY YOURS? ~ 

t— i 
o 

m 
c/> 
m 

LEONARD ROGERS g 

MANAGER OF PURCHASING 

»— i 

zz. 
o 

THE FOLLOWING FUNCTIONS AVAILABLE ARE X 

1 ■- BUILD THE TEXT OR LETTER 

? ■■■■ CREATE THE NAME AND ADDRESS FILE 

3 ■•■• EDIT THE NAME AND ADDRESS FILE 

4 • EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND YOU USE 

THE EDITOR IN BASIC) 

5 - PRINT A COPY OF THE TEXT 

6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE, SALUTATION ENTERED FOR EACH LETTER 

7 - PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 - GLOBAL SEARCH AND REPLACE 

9 PRINT MAILING LABELS 

10 ■- END 

WHICH WOULD YOU LIKE TO DO? 8 

GLOBAL SEARCH AND REPLACE ROUTINE 

WHEN CHOOSING SEARCH STRING? BE SURE TO PICK ONE WHICH 

IS UNIQUE TO THE ITEM YOU WANT CHANGED OR YOU MAY CHANGE 

AN ITEM THAT YOU DIDN'T MEAN TO CHANGE, 

THIS SECTION WILL PRINT OUT THE CHANGED REPORT AS IT MAKES 

THE CHANGES 

DRIVE NUMBER? 1 

OUTPUT FILE NAME? LETTER! 

INPUT FILE NAME? LETTER! 

S E A R C H S T R I N 6 ? FFF 

REPLACEMENT STRING?_FF_ 

READY PRINTER AND HIT (CR) TO CONTINUE? „ 



A MOMENT PLEASE 

:l °l<>' WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF Y 
OUR 

1020' MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR 

1030' OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS. 

1040' 

1050' SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES £ 

1060 ' TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS 

K>70' IN EXCESS OF NORMAL REQUIREMENTS. ° 

1080' 5 

1090' SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF £ 
1100 ' APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILE 
iHO' EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 

1120' DESIGNATED BY THE CONTRACTOR. » 

1130' 3 



1140' WE FELL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN ' 

1150' ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO £ 

1160' RECONSIDER THESE TERMS. PLEASE REPLY BY SEPTEMBER 1 , OR WF 

1170' WILL CONSIDER YOUR OFFER WITHDRAWN. 
1180' 



m 



o 



J190; SINCERELY YOURS t 

1210' m 

1220' m 

1230' £ 

1240' I pnuiuii Dnrstrcc =c 



.EQNARD ROGERS 

:l2b()/ MANAGER OF PURCHASING 

NUMBER OF RECORDS FOUND AND REPLACED = 1 o 

ARE THE CHANGES CORRECT? Y 

WORD PROCESSING TEXT EDITOR REV. 1.1 

UCC •••■ COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

THE FOLLOWING FUNCTIONS AVAILABLE ARE? 

1 •• BUILD THE TEXT OR LETTER 

2 •••■ CREATE THE NAME AND ADDRESS FILE 

3 - EDIT THE NAME AND ADDRESS FILE 

4 - EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND YOU USE 

THE EDITOR IN BASIC) 

5 ~ PRINT A COPY OF THE TEXT 

6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER 

7 •■•■ PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 - GLOBAL SEARCH AND REPLACE 

9 - PRINT MAILING LABELS 
10 - END 

WHICH WOULD YOU LIKE TO DO? 4 

EDITOR ROUTINE FOR TEXT FILES 

THIS SECTION WILL SET UP THE FILE FOR EDITING USING THE 

EDITOR WHICH IS BUILT INTO BASIC. 

FILE NAME TO EDIT? LETTER1 

DRIVE NUMBER? _1_ 

DO YOU WISH A LIST OF THE FILE BEFORE EDITING?, Y 

HIT (CR) WHEN READY? 

1154 



1000' FILE NAME LETTER! REVISION OF? LETTER! DATE REVISED? AUG, 12. 197 

7 
1010' WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF Y 

lO'^O' MODFI 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR 
1030' OFFER , WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS. 

1040' 

1050' SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES <- 

1060' TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS £ 

1070' IN EXCESS OF NORMAL REQUIREMENTS* o 

1080' 

1090' SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 

1100' APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WlU 

•l'-LIO' EXTEND THE COMPLETION TERM BY A LENGTH OF TIME : 

1120' DESIGNATED BY THE CONTRACTOR* 

1 1 30 ' 

1140' WF FFLI THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 

•U 50' ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 

1160' RECONSIDER THESE TERMS, PLEASE REPLY BY SEPTEMBER 1 , OR WE g 

1170' WILL CONSIDER YOUR OFFER WITHDRAWN. m 

1 I 80' ~~ ' 

1190' SINCERELY YOURS. ^ 

1200' o 

1230' > 

r >40' LEONARD ROGERS ^ 

™ ' MANAGER OF PURCHASING 

OK ^ 

ED IT 1140 

~.140 ' ' WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 

LIST 



-< 

73 






CO 



1000 ' FILE NAME LETTER1 REVISION OF? LETTER1 DATE REVISED? AUG* 12, 197 

1010 ' WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF Y 

10'?0 ' MODFL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR 
1030 ' OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS* 

'! 040 ' 

1050 ' SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES 
1060 ' TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS 

1070 ' IN EXCESS OF NORMAL REQUIREMENTS* 

1080 ' 

1090 ' SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 
1100 ' APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 

ir ,0 ' EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 

1120 •' DESIGNATED BY THE CONTRACTOR* 

I 1 30 ' 

Vl40 ' WF FFFI. THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 

1150 ' ACCORDANCE WITH STANDARD INDUSTRY PRACTICES* IF YOU WISH TO 

1160 ' RECONSIDER THESE TERMS, PLEASE REPLY BY SEPTEMBER 1 r OR WE 

I I 70 ' W T I I. . C N S I D E R Y U R F F E R W I T H D R A W N * 

\™ : SINCERELY YOURS, 

1200 ' 

1210 ' 

1220 ' 

1230 ' 

r> 40 ' LEONARD ROGERS 

.,* 250 / MANAGER OF PURCHASING 

OK 

SAVE " LETTER 1" »1>A 1155 



RUN 'MRP PROC 

WORD PROCESSING TEXT EDITOR REM. 1*1 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 



ENTER TODAY'S DATE (MM/DD/YY OR SEPT, 26, 1977)? AUG.1#12* 1977 



WORD PROCESSING TEXT EDITOR REV* 1,1 

UCC •••• COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

THE FOLLOWING FUNCTIONS AVAILABLE ARE? 

1 •- BUILD THE TEXT OR LETTER 

2 •••• CREATE THE NAME AND ADDRESS FILE 

3 •• EDIT THE NAME AND ADDRESS FILE 

4 ••- EDIT THE TEXT FILE (NOTE. PROGRAM EXITS AND YOU USE 

THE EDITOR IN BASIC) 

5 •• PRINT A COPY OF THE TEXT 

6 •• PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER 

7 ■••■ PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 •• GLOBAL SEARCH AND REPLACE 

9 - PRINT MAILING LABELS 
10 - END 

WHICH WOULD YOU LIKE TO DO? 5 

cz 
THIS SECTION PRINTS A COPY OF THE TEXT f? 

DRIVE NUMBER?^ o 

INPUT TEXT FILE NAME? LETTER1 ? 

FILE NAME LETTER 1 REVISION OF J LETTER 1 DATE REVISED. AUG. 12, 1977^ 
IS THIS THE CORRECT FILE? Y £ 

CONTINUOUS FORMS? JL» ~~ 
NUMBER OF LINES PER PAGE? 66 
NUMBER OF COPIES? 1 
LINE UP PAPER AND HIT (CR) WHEN READY? 



IE 
—i 






GO 

O 



o 

PO 

rn 
oo 
rn 
3=> 

73 

o 

re 



o 
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WF HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR 
MODFI 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR 
OFFER, WE SPECIFICALLY C4UESTI0N THE FOLLOWING TERMS AND CONDITIONS, 

SECTION 0~2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES 
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS 
IN EXCESS OF NORMAL REQUIREMENTS* 

SFCTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED DY LACK OF 

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 
DESIGNATED BY THE CONTRACTOR. 

WF FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 
RECONSIDER THESE TERMS, PLEASE REPLY BY SEPTEMBER 1 , OR WE 
WILL CONSIDER YOUR OFFER WITHDRAWN, 

SINCERELY YOURS? 



cz 
o 
o 



o 



LEONARD ROGERS 

MANAGER OF PURCHASING^ 

-< 

i — i 
CD 

zr. 



•^1 



o 



o 

m 
to 
m 
3= 

TO 

o 



o 
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WORD PROCESSING TEXT EDITOR REM, 1.1 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 



THE FOLLOWING FUNCTIONS AVAILABLE ARE I 



o 
o 

o 

o 

"D 

-< 
73 
t— I 
CD 



10 ■••• END 
WHICH WOULD YOU LIKE TO DO? 6 



1 • BUILD THE TEXT OR LETTER 

2 •••• CREATE THE NAME AND ADDRESS FILE £ 

3 •- EDIT THE NAME AND ADDRESS FILE ^ 

4 - EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND 'YOU USE 

THE EDITOR IN BASIC) </> 

5 - PRINT A COPY OF THE TEXT " 

6 •••• PRINT A COPY OF THE LETTER WITHOUT THE NAME j§ 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACIt LETTER 

7 •••• PRINT LETTERS FROM NAME AND ADDRESS FILE £ 

8 - GLOBAL SEARCH AND REPLACE 

9 - PRINT MAILING LABELS m 

CO 



3=> 
O 



O 



PRINT LETTERS WITHOUT NAME AND ADDRESS FILE. 

DRIVE NUMBER?_J_ 

INPUT TEXT FILE NAME? LETTER 

FILE NAME LETTER CREATION DATE J 10/9/1977 
IS THIS THE CORRECT FILE? N 
INPUT TEXT FILE NAME? LETTER 1 

FILE NAME LETTER1 REVISION OF J LETTER1 DATE REVISED? AUG. 12» 1977 
IS THIS THE CORRECT FILE? Y 



ENTER EACH LINE OF THE NAME AND ADDRESS AS IT WILL APPEAR ON 
THE LETTER. AFTER THE LAST LINE HAS BEEN ENTERED v TYPE A 
'?' AND HIT <CR). 
COMPUTER RESEARCH 
8256 ESSEX ST. 
BOSTON , MA. 01256 



INPUT DATE CCR) USES DATE ENTERED? . 

NUMBER OF SPACES TO INDENT DATE <CR) USES LAST ENTRY? 24 
S A L U T A T 1 N ? D E A R S I R t 



.INE UP PAPER AND HIT (CR) WHEN READY? 



1158 



ALIO, 12* 1977 o 

o 

COMPUTER RESEARCH § 

8256 ESSEX ST, ■< 

BOSTON? MA, 01256 <£ 

rr 

—I 



DEAR SIR J 



»-4 



WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YOUR 
MODEI 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR w 
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS, 2 



SECTION 0-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES 
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS 
IN EXCESS OF NORMAL REQUIREMENTS, 

SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 



m 

•z. 

-K 

~n 
i— t 
o 

TO 

m 
c/> 

m 

:> 

O 



EXTEND THE COMPLETION TERM BY A LENGTH OF TIME ^ 

DESIGNATED BY THE CONTRACTOR, 



WF FFEI THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 
RECONSIDER THESE TERMS. PLEASE REPLY BY SEPTEMBER if OR WE 
WILL CONSIDER YOUR OFFER WITHDRAWN, 

SINCERELY 



o 



LEONARD ROGERS 
MANAGER OF PURCHASING 



DO YOU WANT TO PRINT AN ENVEI...0PE 



PI ACF ENVELOPE IN PRINTER AND HIT (CR) WHEN READY? 

COMPUTER RESEARCH 
8256 ESSEX ST, 
BOSTON? MA, 01256 



i NOT HER LETTER? J^L 

EXITING LETTER PRINTING ROUTINE 
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WORD PROCESSING TEXT EDITOR REV* 1,1 

UCC ■" COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

THE FOLLOWING FUNCTIONS AVAILABLE ARE? ° 



cr 
o 
o 



1 - BUILD THE TEXT OR LETTER ? 

2 -•• CREATE THE NAME AND ADDRESS FILE ^ 

3 - EDIT THE NAME AND ADDRESS FILE £ 

4 •■•■ EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND YOU S^E 

THE EDITOR IN BASIC) ^ 

5 - PRINT A COPY OF THE TEXT i3 

6 ■■■■ PRINT A COPY OF THE LETTER WITHOUT THE NAME ^ 

AND ADDRESS FILE, SALUTATION ENTERED FOR EACH LETTER 

7 - PRINT LETTERS FROM NAME AND ADDRESS FILE £ 
••- GLOBAL SEARCH AND REPLACE m 
9 - PRINT MAILING LABELS 2 



10 •••• END 
WHICH WOULD YOU LIKE TO DO? 7 



o 

JO 

m 

PRINT LETTERS FROM NAME AND ADDRESS FILE g 

DRIVE NUMBER? _!__ ^ 

INPUT TEXT FILE NAME? LETTER 1 = 

FILE NAME LETTER! REVISION OF? LETTER! DATE REVISED? AUG, 12. 1977^ 
IS THIS THE CORRECT FILE?_Y. 
NAME/ADDRESS FILE NAME? NAME 
THE FILES AVAILABLE ON THIS DISC ARE? 



6 frt> F\LB NAMB error 



MWPMENU MWP1 MWP2 MWP5 MWP8 MWP4 MWP6 
MWP7 MWP9 WPTE NAME LETTER! ADDRESS ADDRESS 1 
TEMP LETTER 
NAME/ ADDRESS FILE NAME? NAME 

FILE NAME NAME REVISION OF? 1 NAME DATE REVISED? AUG. 12* 1977 
IS THIS THE CORRECT FILE? Y 
CONTINUOUS FORMS? JL ~~~ 
NUMBER OF LINES PER PAGE? 66 



INPUT DATE (CR) USES DATE ENTERED? 

NUMBER OF SPACES TO INDENT DATE (CR) USES LAST ENTRY? 24 

GROUP CODES TO PRINT? J3L, * 

YOU HAVE SELECTED THE FOLLOWING GROUP CODES? 

G L 

IS THIS CORRECT? Y 

LINE UP PAPER AND HIT (CR) WHEN READY? 
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c= 
o 
o 

o 
o 
-o 

-< 

73 
i — i 
CD 

zc 
AUG, 12 ? 1977 "" 

<£> 
SWAIN ELECTRONICS ^ 

1923 TOPANGO PL* ' 

CROFTONr MD, 21114 c/> 



DEAR JOHN* 



m 



WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OP YOUR 
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YffljR 
OFFER* WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIO^, 

73 

SECTION C-? THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES 2 
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS _, 
IN EXCESS OF NORMAL REQUIREMENTS, o 

SFCTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 
DESIGNATED BY THE CONTRACTOR, 

WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 
RECONSIDER THESE TERMS. PLEASE REPLY BY SEPTEMBER 1, OR WE 
WILL CONSIDER YOUR OFFER WITHDRAWN, 

SINCERELY YOURS? 



LEONARD ROGERS 
MANAGER OF PURCHASING 
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AUG. 12 s- 1977 



o 
o 

o 
o 

TJ 

■>J 
I— i 

o 



THE COMPUTRAN CORPORATION S 

15 S. MAIN ST, ^1 

FRANKLIN* NEW YORK 11388 ■ 

oo 

GENTLEMEN! 2 

m 

z 
-J 

t—i 

WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YQBR 
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YOUR - 
OFFER, WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS, £J 

m 

SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES § 
TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS = 
IN EXCESS OF NORMAL REQUIREMENTS. ~ 

o 

SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 

APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 
DESIGNATED BY THE CONTRACTOR, 

WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES, IF YOU WISH TO 
RECONSIDER THESE TERMS. PLEASE REPLY BY SEPTEMBER It OR WE 
WILL CONSIDER YOUR OFFER WITHDRAWN, 

SINCERELY YOURS* 



LEONARD ROGERS 
MANAGER OF PURCHASING 
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o 
o 

o 
o 

-a 

AUG. 12» 1977 =5 

CD 

SCIENTIFIC RESEARCH INST, 5 

.1.712 FARMINGTON CT. £ 

CROFTON* MD. 21114 ^ 



gentlemen; 



in 
o 



m 



WF HAVF REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OP^ YOUR 
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH YQ^JR 
OFFER t WF SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIO®. 



73 

rn 



SECTION C-? THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES K 
TO SUPPORT TEMPORARY ELECTRICAL LO^s CONDITIONS £ 
IN EXCESS OF NORMAL REQUIREMENTS* 3 

SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF 3 
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILE? 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME 
DESIGNATED BY THE CONTRACTOR. 

WF FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 

ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO 

RECONSIDER THESE TERMS, PLEASE REPLY BY SEPTEMBER 1, OR WE 
WILL CONSIDER YOUR OFFER WITHDRAWN. 

SINCERELY YOURS? 



LEONARD ROGERS 
MANAGER OF PURCHASING 
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o 
o 

o 
o 

-a 

-< 

ENDING LETTER PRINT OUT ROUTINE 2 

NUMBER OF LETTERS PRINTED =3 S 

DO YOU WISH TO PRINT MAILING LABELS? Y " H 

LINE UP LABELS AND HIT <CR> WHEN READY? £ 

XXXXXXXXXXXXXXXXXXXX i 

XXXXXXXXXXXXXXXXXXXX oo 

XXXXXXXXXXXXXXXXXXXX 2 

XXXXXXXXXXXXXXXXXXXX z 

XXXXXXXXXXXXXXXXXXXX d 

XXXXXXXXXXXXXXXXXXXX 2 

XXXXXXXXXXXXXXXXXXXX ° 

XXXXXXXXXXXXXXXXXXXX S 

IS THE LINE UP CORRECT? Y m 

SWAIN ELECTRONICS S 

1923 TOP AN GO PL* -. 

CRGFTON? MB, 21114 o 



THE COMPUTRAN CORPORATION 

15 S, MAIN ST, 

FRANKLIN* NEW YORK 11388 



SCIENTIFIC RESEARCH INST, 
1712 FARMINGTON CT, 
CROFTON» MD, 21114 



END OF MAILING LABEL ROUTINE 

NUMBER OF LABELS PRINTED « 3 

WORD PROCESSING TEXT EDITOR REV, 1,1 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 
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o 
o 

o 
o 
-a 

THE FOLLOWING FUNCTIONS AVAILABLE ARE J 2 

CD 

1 - BUILD THE TEXT OR LETTER ^ 






2 •- CREATE THE NAME AND ADDRESS FILE 

3 •-•• EDIT THE NAME AND ADDRESS FILE 

4 - EDIT THE TEXT FILE (NOTE? PROGRAM EXITS AND YOL| USE 

THE EDITOR IN BASIC) w 

5 - PRINT A COPY OF THE TEXT 2 

6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME g 

AND ADDRESS FILE* SALUTATION ENTERED FOR EACH LI-JTER 

7 •••• PRINT LETTERS FROM NAME AND ADDRESS FILE 2 

8 - GLOBAL. SEARCH AND REPLACE ° 

9 - PRINT MAILING LABELS S 
10 ■••• END £ 

WHICH WOULD YOU LIKE TO D0?_7_ 1 

PRINT LETTERS FROM NAME AND ADDRESS FILE g 

DRIVE NUMBER? _J_ 

INPUT TEXT FILE NAME? LETTER 1 

FILE NAME LETTER! REVISION OF? LETTER1 DATE REVISED? AUG, 12* 1977 
IS THIS THE CORRECT FILE? Y 
NAME/ADDRESS FILE NAME? NAME 

FILE NAME NAME REVISION OF! NAME DATE REVISED, AUG* 12» 1977 
IS THIS THE CORRECT FILE?_Y_ 
C ONI I M U U S F R M S ? _Y_ 

N U M B E R F I... I N E S P E R P A G E ? 66 p » • . 

_.__ . g,tt6T KM©: 

INPUT DATE <CR) USES DATE ENTERED? AUG* 25 t 1978>7 
NUMBER OF SPACES TO INDENT DATE (CR) USES LAST ENTRY? _24_ 
GROUP CODES TO PRINT? M 

YOU HAVE SELECTED THE FOLLOWING GROUP CODES I 

M 

IS THIS CORRECT? Y 

LINE UP PAPER AND HIT (CR) WHEN READY?_ 
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cr 
o 
o 

o 
o 

-o 

-< 

AUG, 25 -j 1977 2 

CD 

zc 
THE COMPUTRAN CORPORATION "* 

15 S, MAIN ST, £ 

franklin? new york 11388 ^ 

gentlemen: </> 

o 

i— i 
m 

z 

WE HAVE REVIEWED YOUR PROPOSED PLANS FOR THE INSTALLATION OF YBttlR 
MODEL 3309 COMUPACK AND WHILE WE ARE IN GENERAL AGREEMENT WITH Y0UR~ 
OFFER. WE SPECIFICALLY QUESTION THE FOLLOWING TERMS AND CONDITIONS.^ 

m 

SECTION C-2 THE CLIENT SHALL SUPPLY ADDITIONAL POWER LINES m 

TO SUPPORT TEMPORARY ELECTRICAL LOAD CONDITIONS § 

IN EXCESS OF NORMAL REQUIREMENTS. =c 

\— t 
SECTION R-5 CHANGES IN WORK PERFORMANCE REQUIRED BY LACK OF o 
APPROVALS OR OTHER DELAYS CAUSED BY THE CLIENT WILL 
EXTEND THE COMPLETION TERM BY A LENGTH OF TIME- 
DESIGNATED BY THE CONTRACTOR, 

WE FEEL THAT THESE SPECIFICATIONS AND TERMS ARE NOT IN 
ACCORDANCE WITH STANDARD INDUSTRY PRACTICES. IF YOU WISH TO 
RECONSIDER THESE TERMS 9 PLEASE REPLY BY SEPTEMBER 1, OR WF 
WILL CONSIDER YOUR OFFER WITHDRAWN. 

SINCERELY YOURS r 



LEONARD ROGERS 
MANAGER OF PURCHASING 
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o 
o 

o 
o 

-a 

•< 
zo 

I— I 
CD 



1X5 



m 



ENDING LETTER PRINT OUT ROUTINE ■ 

NUMBER OF LETTERS PRINTED == 1 £ 

DO YOU WISH TO PRINT MAILING LABELS? N 

WORD PROCESSING TEXT EDITOR REV. 1 ♦ 1 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH ^ 

h-H 

o 

THE FOLLOWING FUNCTIONS AVAILABLE ARE J £ 

m 

1 - BUILD THE TEXT OR LETTER g 

2 - CREATE THE NAME AND ADDRESS FILE = 

3 "•• EDIT THE NAME AND ADDRESS FILE ~ 

4 ••• EDIT THE TEXT FILE (NOTE J PROGRAM EXITS AND Y«U USE 

THE EDITOR IN BASIC) 

5 •••• PRINT A COPY OF THE TEXT 

6 ••- PRINT A COPY OF THE LETTER WITHOUT THE NAME 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER 

7 - PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 - GLOBAL SEARCH AND REPLACE 

9 ■••• PRINT MAILING LABELS 
10 - END 

WHICH WOULD YOU LIKE TO DO? 9 



/ 



error KW6-' rentes 3 



PRINT MAILING LABELS 
DRIVE NUMBER? 1 
NAM E / A D D R E S S F I L E NAM E ? NAM3 
FILE NAME NAME REVISION OF? NAME DATE REVISED! AUG* 12? 1977 

IS THIS THE CORRECT FILE? Y 

GROUP CODES TO PRINT? ALL 

YOU HAVE SELECTED ALL OF THE FILE 



IS THIS CORRECT? JL. 

LINE UP LABELS AND HIT (CR) WHEN READY?. 
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xxxxxxxxxxxxxxxxxxxx ° 

xxxxxxxxxxxxxxxxxxxx g 

xxxxxxxxxxxxxxxxxxxx ^ 

xxxxxxxxxxxxxxxxxxxx 2 

xxxxxxxxxxxxxxxxxxxx §2 

xxxxxxxxxxxxxxxxxxxx - 1 

xxxxxxxxxxxxxxxxxxxx £ 

xxxxxxxxxxxxxxxxxxxx ^j 

IS THE LINE UP CORRECT? Y , 

CO 

SWAIN ELECTRONICS £ 

1923 TOPANGO PL* g 

CROFTON* MD. 21114 "j 



o 

m 

CO 

m 

o 

THE COMPUTRAN CORPORATION ^ 
15 S. MAIN ST* ^ 

FRANKLIN* NEW YORK 11388 • 



SCIENTIFIC RESEARCH INST, 
.1.712 FARMINGTON CT. 
CROFTON? MD. 21114 



SIMPLEX TIME RECORDER CO. 
25 S* LINCOLN ST. 
GARDNER » MA. 01440 



END OF MAILING LABEL ROUTINE 
NUMBER OF LABELS PRINTED * 4 
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cz 
o 

WORD PROCESSING TEXT EDITOR REM, 1.1 £ 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH o 

-< 

73 

i— i 

THE FOLLOWING FUNCTIONS AVAILABLE ARE? jr 

1 - BUILD THE TEXT OR LETTER § 

2 - CREATE THE NAME AND ADDRESS FILE -J 

3 - EDIT THE NAME AND ADDRESS FILE i 

4 -• EDIT THE TEXT FILE (NOTE? PROGRAM EXITS ANDgYOU USE 

THE EDITOR IN BASIC) £ 

5 •••• PRINT A COPY OF THE TEXT z 

6 - PRINT A COPY OF THE LETTER WITHOUT THE NAME ~ 

AND ADDRESS FILE. SALUTATION ENTERED FOR EACH LETTER 

7 ■••• PRINT LETTERS FROM NAME AND ADDRESS FILE 

8 •- GLOBAL SEARCH AND REPLACE £ 

9 ~ PRINT MAILING LABELS rn 
10 -■ END g 

WHICH WOULD YOU LIKE TO DO? 10 g 

o 

EXITING TEXT EDITOR 
OK 
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UTILITY; 

This utility program is designed to enable the user to manipulate disk 
files. The program responds to seventeen (17) different commands and 
is fully instructional. For a detailed listing of all the available 
instructions, just list the program. Utility will require 10K Bytes 
of free user RAM for storing the source code and should execute within 
14K Bytes in most systems with disk extended Basic. 

While most Basics are very similar there usually are a few minor dif- 
ferences, so you may find it necessary to convert the file calls used 
in this program to those recognized and accepted by your Basic. As 
an example: the Sine Input statement used in this program, if not re- 
cognized by your version of Basic, may be replaced with the Input state- 
ment, however this means you can not use commas or colons in the inputed 
statements. When making conversions it is always wise to check the ef- 
fect, as simple statement substitutions does not always mean that data 
will be handled in the exact same way. 
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100 REM WRITTEN BY JOHN U* SWAIN 

110 PR:ENTCHR$<26)5"DISC UTILITY PROGRAM REV* 5.1° 

120 INPUT-DO YOU WANT INSTRUCTIONS " 5Q* 

130 IF LEFT*<Q*,i)«»Y" THEN GOSUB 2720 

140 CLEAR 0JX«FRE<0)~i500:iF X<0 THEN CLEAR 600 J GOTO 170 § 

150 IF X>24000 THEN CLEAR X ELSE CLEAR 200 J END " 

1 60 Zl *=CHR$ < 255 ) +CHR* ( 255 ) iCHR* ( 255 ) +CHR* < 255 ) o 

170 D IMA* (255) 5 

.1.80 DIMT2< 15)? GOSUB 3490 2 

190 CLOSE t PRINT "UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH"? 

200 ON ERROR GOTO 3450 I PRINT "COMMAND?" 5 JLINEINPUTB* 

210 IFB*=""THENCLEAR 200. 'END S 

220 IF LEN<B*)>3 THEN C*=RIGHT*<B*»LEN(B*)-3) ELSE C*»Bt ^ 

230 B*=LEFT*<B**3> i 

240 I F B $ = " D A T " T H E N 1 630 co 

250 I FB*= " COP " THENZX=0 t Z Y=76 J GOTO 2220 £ 

260 IFB*="FLS"THEN ZX~~-6 % ZY=76 X GOTO 2220 g 

270 IFB*="BAS"THEN ZX=0 t ZY«5 % GOTO 2220 ~ 

280 IFB$«"END»THEN CLEAR 200 J END £ 

290 IFB*==" LIS "THEN F«0:FB=0 JG0T01750 „ 

300 IFB*=" PAG "THEN 1850 m 

310 IFB*=»DIR"THENF=-i:GOTO 1200 g 

320 IFB*=«SRT'THEN F=OJGOTO 1200 » 

330 IFB*="HEX"THEN2460 = 

340 IF B*="MEM" THEN 3300 g 

350 IFB*="MNT" THEN 2640 <"> 

360 IF B*="UNL"THEN 2680 

370 IF B*="IMS" THEN F*-1JG0T0 1750 

380 IF B*="LLI" THEN F=0 :FB=-1 i GOTO 1750 

390 IF B*="LPA" THEN 3530 

400 IFB$0»CPF«THENPRINT" COMMAND ERROR ■ I G0T0190 

410 PRINT "THIS SECTION COPIES ONLY ASCII SEQUENTIAL FILES OR RANDOM F 
ILES." 

420 PRINT" IT WILL NOT COPY COMPRESSED BINARY PROGRAM FILES," 

430 INPUT" INPUT FILE NAME" 5 1$ 

440 INPUT INPUT DRIVE NUMBER"? II 

450 INPUP'OUTPUT FILE NAME" JO* 

460 INPUT "OUTPUT DRIVE NUMBER" 5 12 

470 IF LEN<I*)<8 THEN FOR I=LEN<I*)+1 TO 8 ELSE 490 

480 I*«I*+" "J NEXT I 

490 C*=STR*(I1) 

500 GOSUB 3920 

510 FOR S=0 TO 31 

520 A*=nSKI*<17*S AND 31) 

530 A*=LEFT*(A*»135) 

540 A*~RIGHT*<A*?128) 

550 FOR TT=0 TO 7 

560 B*==LEFT* ( A* , ( TT+ 1 ) * 1 6 ) 

570 B$=RI6HT*(B*»16) 

580 N$=4..EFT*<B* ? 8) 

590 IF N*=I* THEN Z==ASC(RIGHT* <B* ? 6 ) ) JGOTO 650 

600 IF ASC<N*)«255 THEN 630 

610 NEXT TT 

620 NEXT S 

630 PRINT "FILE NAME "51*?" NOT FOUND. CHECK FILE NAME" 

640 GOTO 190 

650 IF Z<>2 THEN 930 

660 NT==0?PR1NT"C0PYING ASCII SEQUENTIAL FILE "51* 
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670 


NR = 1 




680 


open b i° »i>i*»ii 




690 


0PEN"0" »2fO*»I2 




700 


IF EOF(l) THEN GOTO 750 


cr 


710 


LINE INPUT #i» A* 


o 
o 


720 


PRINT#2» A* 


o 


730 


NR=NR+1 


o 
-o 


740 


GOTO 700 


-< 

73 


750 


CLOSE 


t—i 

CD 


760 


OPEN" I" fltlttll 


3C 
— ) 


770 


OPEN "I"»2»0*rI2 


1— » 


780 


IF E0F(1> THEN 890 


-~4 


790 


LINE INPUT #1»A* 


-^J 


800 


LINEINPUT #2* B$ 


1 


810 


IF A*=B* THEN 780 


CO 
O 


820 


NT~NT-fl 


i — i 

m 


830 


PR INT "RECORDS HO NOT MATCH" 


—i 


840 


IF NT<5 THEN CLOSE J GOTO 670 


-TI 


850 


PRINT "COPY FAILED 5 TRIES* ABORT I Ng CC 


860 


CLOSE 


73 


870 


KILL 0*»I2 


m 

CO 


880 


GOTO 190 


m 

3=> 


890 


CLOSE 


73 
O 


900 


PR I NT "DONE" 


rc 


910 


PRINT "NUMBER OF RECORDS COPIED = 


"^R 


920 


GOTO 190 


o 


930 


NT=0 




940 


PRINT"COPYING RANDOM FILE "»I* 




950 


NR-1 




960 


OPEN ■R"»l»I*fIl 




970 


OPEN "R"»2»Q*»I2 




980 


FIELD * 1,1 28 AS A* 




990 


FIELD #2, 128 AS B* 




1000 


NR=1 




1010 


FOR 1=1 TO LOF(l) 




1020 


GET #1,1 




1030 


LSET B*=A* 




1040 


PUT #2,1 




1050 


NR=NR+i 




1060 


NEXT I 




1070 


FIELD #1,128 AS C* 




1080 


FIELD #2, 128 AS D* 




1090 


FOR. I ==1 TO LOFU.) 




1100 


GET* 1,1 




1110 


GET#2,I 




1120 


IF C*OD* THEN 1150 




1130 


NEXT I 




1140 


GOTO 900 




1150 


PRINT "RECORDS DO NOT MATCH" 




1160 


NT=NT+1 




1170 


IF NT<5 THEN 980 




1180 


CLOSE 




1190 


GOTO 850 




1200 


GOSUB 3920 




1210 


PRINTSGOSUB 3490 




1220 


PR I NT " D I RECTORY D I SK " J A J PR INT J PR INT 


1230 


PRINT » NAME "f a S' TYPE " 5 " TRK 


SCT 


1240 


PRINT "NAME" J ' " » "TYPE" » " TRK 


SCT 



:PRINTJI=0 
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UTILITY REM 5*1 - 3 .... 

:l.250 F0RS«0TG31 

3.260 A*=DSKI* ( 17*SAND31 ) 

1 270 A*=LEFT* < A$ r 1 35 > 

1280 A*=RIGHT*<A*»128) 

.1.290 FOR TT=0 TO 7 

1 300 B*=LEFT* ( A* v ( TT+ 1 ) * 1 6 ) 

1 3 1 B * « R I G H T * < B $ f 16) S 

1320 N*=LEFT*CB*»8) 

1330 B*=RIGHT*(B*>8> 

1340 X=ASC<B*> JB*bRIGHT$(B$»7) JY«ASC<B$) § 

1 350 B$"R I GHT* ( B* » 6 ) ? Z-ASC ( B* ) "" 

1 3 6 I F A S C ( N * ) = T H E N 1 420 

1370 IFASC ( N* ) =255THEN1440 

1 3 8 R * = " S " J I F Z < > 2 T H E N R * = " R " 

1 3 9 I F F T H E N P R I N T N * $ " " i R * i " " 9 X J " » » Y r t G T 1 4 1 c/j 

1 400 A * < :i: ) = N * + " " + R * 1 " n + S T R $ ( X ) + " n + S T R * ( Y ) i I « J + 1 

1410 IF P0S<0)>45 THEN PRINT 

.1.420 NEXT TT 3 

1430 NEXTS 2 

1440 IF F OR I«OTHENPRINTJPRINT"AM0UNT OF FREE SPACE « ' *DSKF< A) fjGOTO 1 

90 S 

1450 IF 1=1 THEN 1510 m 

1460 SW=0 £0 

1470 FOR J=0 TO 1-2 S 

1480 IF A*(J)>A*<Jfl ) THEN SWAP A*< J> » A*( J+l) :SW»-i - 

1490 NEXT J o 

1500 IF SW THEN 1460 

1510 FOR J=0 TO 1~1 STEP 2 

.1.520 PRINT A* < J ) r A* ( J+l ) 

1530 NEXT J 

1540 PRINT* PRINT" AMOUNT OF FREE SPACE « " 9 BSKF ( A ) J G0T0190 

1 550 I FT2 < A ) 1 THEN 1590 

1 560 I F ( I NP ( 8 ) ANB64 ) =0THENT2 < A ) =0 J GOTO! 590 

1570 WAIT8»2»2J0UT9»2 

1580 GOTO 1560 

1 5 9 I F T 2(A) = T T H E N R E T U R N 

1600 D=l : I F T 2 ( A ) > T T H E N D » 2 

1610 WAITS r 2 r 2 i 0UT9 r D t T2 < A ) «T2 < A ) -2* ( D-l ♦ 5 ) 

1620 GOTO 1590 

1630 INPUT-TRACK" STJ IF T<0 THEN .1.90 ELSE INPUT " SECTOR" ?S 

1 6 40 GO S U B 1 7 1 : G S U B 1 5 5 

1 650 A*=DSK I * ( S ) J FOR I «0T0LEN < A* > - 1 

1660 T1*=0CT*(ASC(RIGHT*(A*»LEN<A*)-I) ) ) 

1670 T2*=I...EFT* ( " 000 " , 5-I...EN ( Tl* ) ) +Ti* i PRINTT2* J " " i 

1680 IF I MOD 8=7 THEN PRINT 

1690 NEXT IS PRINT 

1700 GOTO 1630 

1710 A=VAL<C*) 

1 720 IFA<00RA>1 5THENPRI NT " ERROR " J G0T01 90 

1 730 OUTS , 1 28 J 0UT8 » A 

1740 RETURN 

1750 GOSUB1710 5GOSUB 3490 

1760 C * = R I G H T * ( C * , I... E N ( C * ) - 1 + < A > 9 ) ) 

1770 I F A S C ( C * ) < > & 5 4 T H E N P R I N T " E R R R " I G T 1 9 

1 780 C*=R I GHT* ( C* r LEN ( C* ) - 1 ) 

1790 0PEN"I%1 ? C*?A 

1800 IFEOF(1)THENCLOSE1;GGT0190 

1810 LINEINPUTfl ?A* 
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1820 IF A*="" THEN 1800 

1830 IF F THEN PRINTZ1$?A$ ELSE IF FB THEN LPRINTA* ELSE PRINTA* 

1840 GOTO 1800 

1850 GOSUB 1710? GOSUB 3490 c 

1860 Q*="" ? INPUT "COMMENTS < <15 CHARACTERS )"? Q* £> 

1870 INPUT "NUMBER OF PRINT POSITIONS - SHOULD BE BETWEEN 72 AND 132" 9P n 
p o 

1880 INPUT* IS THIS A LISTING OF A PROGRAM OR FILE (P OR F>"JZ* | 

1890 C*=RIGHT$ ( C* , LEN ( C* ) -1 ) * IF ASC( C* ) OS054THEN PRINT " ERROR " J G0T0190 ~ 

1900 C$=RIGHT*<C$»LEN(C*>~-1) = 

i9io ti=o:pi=i _ 

1920 OPEN "I'»l»Ct»A S3 

1930 GOSUB 2160 ^ 

1940 CC=6JIF EOF(l) THEN 2200 ! 

1950 LINEINPUT#1?A* g 

1960 IF A*="' THEN 1940 £ 

1970 IF Tl=65 THEN GOSUB 2140 5 

1980 IF Z*="F U AND LEN<A*X=PP THEN 2120 ~ 

1990 IF Z*="F" AND LEN(A*)>PP THEN FDR 1 = 1 TO LE'N<A*> ELSE 2030 

2000 PRINTMID*(A*»I»i)*tCC*CC+lJIF CC=PP THEN PRINT JT1=T1+1 I CC=6 I ELSE 

2020 W 

2010 IF Ti=65 THEN GOSUB 2140JPRINT" a 9 g 

2020 NEXT IS PRINT :Ti=Tl + l J IF T1 = 6S THEN GOSUB 2 1 40 J GOTO 1940 ELSE 1940 » 

2030 FOR 1 = 1 TO 6 J IF MID* < A* r I r 1 )<>" " THEN NEXT I =c 

2040 P$=LEFT*(A*»I) JA*=MID*(A*»I>:iF LEN(B*)>5 THEN 2060 ~ 

2050 FOR I=LEN(B*> TO 5?B*=" "+B*JNEXT I P 

2060 PRINTB$?SIF LEN(A$)+LEN(B*X=PP THEN 2120 

2070 FOR 1 = 1 TO LENC A* ) SPRINTMID*< A$? I ? 1 ) * I CC=CC+1 

2080 IF COPP THEN PRINTSPRINT" " 9 t T1=T1+1 JCC=6 S ELSE 2100 

2090 IF Tl=65 THEN GOSUB 2140JPRINT" "» 

2100 NEXT ISPRINTMri=TlHtIF Tl=65 THEN GOSUB 2140 

2110 GOTO 1940 

2120 PRINT A$STl=Tlil 

2130 GOTO 1940 

2140 IF EOF(l) THEN 2200 

2 1 50 PRINT J PR INT t PR INT 

2160 PRINT? "•--"-■ SPRINT SPRINT 

2170 PRINTC**" " JQ*JTAB<35)J"-"JP1»"-' 

2180 PRINT 

2 1 9 T 1 = 7 : P 1 = P 1 + .1. i R E T Li R N 

2200 FOR J=T1 TO 67 ? PRINT JNEXT J t PRINT ■ ---— B t PRINT t PRINT 

2210 GOTO 190 

2220 G0SUB1710JB=A 

2230 INPUT'DO YOU WISH A LIST OF REWITE AND REREAD ERRORS" ?Q* 

2240 Q$=LEFT$<a$?l ) 

2250 C*=RIGHT* < C* ? LEN ( C* ) -1 + < A>9 ) ) 

2260 IFASC ( C* ) O&054THENPRINT ■ ERROR ■ J GOTO 190 

2270 C*=RIGHT*(C*»LEN<C*)-1 ) J G0SUB1710 tOA 

2280 PR INT "FROM " 9 B 9 " TO " 9 C 9 

2290 INPUTA*?IFASC<A$X>ASC< B Y" ) THEN 190 

2300 FOR T=ZX TO ZY 

2310 0UT8 » 128: OUTS »C 

2320 A=C : GOSUB 1550 : 0UT8 r 128 I OUTS r B J A=B t GOSUB 1550 

2330 F0RS=0T031 

2340 OUTS r 128 J OUTS r B S B*=DSKI* ( S ) 

2350 F*=DSKI*(S>:iFF*=B*THEN2370 ELSEIFQ*="N" THEN 2340 

2360 PRINT-RE-READ DISC #"JB?" TRACK #ST5" SECTOR #NSSGOTG 2340 

2370 OUT 8 9 128 J OUT 8s>C 
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2380 DSK0*B**S:C$=DSKI*<S>:iFC*=B*THEN2400 ELSE IFG$="N" THEN2330 

2390 PRINT -REWRITE DISC »^Cf» TRACK # • } T J " SECTOR #"?SJG0T0 2330 

2400 NEXTS 

2410 GOSUB 2450 

2420 NEXTT o 

2430 PRINT "DONE 8 ° 

2440 G0T0190 o 

2450 PRINTTJ JRETURN ^< 

2460 INPUT-TRACK" JT J IF T<0 THEN 190 ELSE INPUT-SECTOR" *S* 2 

2470 Z$= B 0" g 

2480 FOR J=l TO LEN(S*) ~ H 

2490 IF MID*(S*»J»1)="-" GOTO 2510 

2500 NEXT* Sl=VAL(S*)t S2=SU GOTO 2520 

2510 S1==VAL ( LEFT* ( S* » J-1 ) ) t S2-=VAL (MID* ( S* t J + l > ) 

2520 PRINT " 1 2 3 4 5 6 7 8 9 A B C D E F° 

2530 FOR S==S1 TO S2 

2540 GOSUB. 1.550 S 

2550 A*=DSKI*(S)t T*== Ka ? K=0 ~ 

2560 FOR 1=0 TO 135 2 

2570 CZ=ASC ( MID* ( A$ , 1+1 , 1 ) ; X IFCZ<=i5THENZl*=Z*+HEX* ( C% ) ELSEZ1*=HEX* ( C%° 
) m 

2 580 I F ( I M D 1 6 ) = T H E N P R I N T i P R I N T K J : K » K + 1 m 

2590 PRINTUSING'WfZl*? JPRINT* s > § 

2600 NEXT 5 

2610 NEXT -. 

2620 PRINT SPRINT o 

2630 GOTO 190 

2640 GOSUB 1710 

2650 GOSUB 3490 

2660 MOUNT A 

2670 GOTO 190 

2680 GOSUB 1710 

2690 GOSUB 3490 

2700 UNLOAD A 

2710 GOTO 190 

2720 P R I N T "THE LIS T F P S S I B L F C M H A N D S A R E AS FOLLOWS? " 

2730 PRINT" 'DAT' DATA OFF OF DISC IN OCTAL" 

2740 P R I NT"' C OP' C P I E S U H L E D 1 S C " 

2750 PRINT" 'FLS' COPIES ONLY THE FILES (TRACKS 6-76)' 

2760 PRINT" 'BAS' COPIES ONLY BASIC (TRACKS 0-5)" 

2770 PRINT" 'END' ENDS PROGRAM" 

2780 PRINT" 'LIS' LISTS ASCII SAVED FILES (NO PAGING)" 

2790 PRINT" 'PAG' LISTS ASCII SAVED FILE WITH PAGING" 

2800 PRINT" 'DIR' LISTS THE DIRECTORY WITH HEADINGS" 

2810 PRINT" 'SRT' PRINTS SORTED DIRECTORY WITH HEADINGS" 

2820 PRINT 'HEX' PRINTS DATA OFF OF DISC IN HEX" 

2830 PRINT" 'CPF' COPIES DATA FILES' 

2840 PRINT" 'MEM' RUNS MEMORY TEST BETWEEN TWO LIMITS SET." 

2850 PRINT" 'MNT' MOUNTS DISC NUMBER SPECIFIED" 

2860 PRINT" 'UNL' UNLOADS DISC NUMBER SPECIFIED" 

2870 PRINT"' IMS' USED TO PUNCH TAPE IN IMSAI BASIC FORMAT" 

2880 PRINT-'LLI' SAME AS 'LIS' EXCEPT USES LINE PRINTER" 

2890 PRINT "'LP A' SAME AS 'PAG' EXCEPT USES LINE PRINTER" 

2900 PRINT I PRINT "THE fTOMMAK'B STRUCTURE IS AS FOLLOWS FOR THE FOLLOWING 

2910 PRINT-COMMANDS* 

2920 PRINT* "DAT" 

2930 PRINT » "DIR" 
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2940 
2950 
2960 
2970 
29f30 

2990 

3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 

3090 
3100 
3110 
3120 
3130 
3140 

3150 

3160 

3170 
3180 
3190 
3200 
3210 

3220 
3230 
3240 
3250 



PRINT? "SRT" 

PRINT? "HEX 8 

PRINT? "MNT" 

PRINT? "UNL" 

PR I NT t PR I NT ■ XXX Y 

DRIVE NUMBER" 

PRINT J PRINT "FOR 

AS FOLLOWS?" 

PRINT? "COP" 

PRINT? "FLS" 

PRINT? "B AS" 

PRINT 

PRINT "XXXY»Z 

PRINT" 

PRINT" 

PRINT 

PRINT "FOR THE 

LOWS" 

PRINT? "LIS" 

PRINT? "PAG" 

PRINT? "IMS" 

PRINT? "LLI" 

PRINT? "LP A" 

print: PRINT "XXXY»ZZZZZZ m 

E DRIVE NUMBER" 

PRINT" M 

RINTED," 

PRINT: PRINT "FOR THE FOLLOWING 

PRINT: PR I NT? "END" 
PRINT? "MEM" 
PRINT? "CPF" 
PRINT" 



WHERE 'XXX' IS THE COMMAND AND 'Y' IS THE 
THE FOLLOWING COMMANDS? THE COMMAND STRUCTURE IS 



WHERE 'XXX' IS THE COMMAND? 'Y' IS THE FROM' 
DRIVE NUMBER? AND 'Z' IS THE DESTINATION" 
DRIVE NUMBER" 



c 
o 
o 

o 
o 

-o 

■< 

73 

t—t 






o 



FOLLOWING COMMANDS? THE COMMAND STRUCTURE IS AS F0L- 



o 

















73 

m 
co 

m 

3» 
73 


ERE 'XXX' 


IS 


THE 


COMMAND? 


'Y 


' IS 


TH = 

i— ( 


D 'ZZZZZZ 


' IS 


> THE 


FILE 


NAME 


TO BE 


; po 


COMMANDS 


THE 


STRUCTURE 


IS 


AS 


FOLLOW 



PRINT! 

PRINT 1 
PRINT 1 
PRINT' 
PRINT 1 



PRINT 1 



WHERE 'XXX' IS THE COMMAND" 
<1> IF THE FOLLOWING COMMANDS: 'DAT'? 'C0P'?'FL 



HEX' 



OR 



UNLOAD CUNL) AND 



'CNV ARE USED? YOU MUST FIRST' 
THEN MOUNT (MNT) THE DRIVE YOU 1 



WANT USE THE FOLLOWING COMMANDS 
'DIR'? OR 'SRT' OR YOU WILL GET 



ON 'LIS'? 'PAG'?" 
A DISC I/O ERROR* 



3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 



PRINT" 
PRINT" 
PRINT 
RETURN 
PRINT" 
INPUT 
INPUT" 
J=0 

FOR :i> 
POKE I 
NEXT I 
FOR I~ 
K=PEEK 
IF JO 
PR I NT J 
NEXT I 
IF J=0 
IF J>1 



(2) THEN COMMANDS 'LIS'? 'IMS'? AND 
ONLY ON ASCII SEQUENTIAL FILES." 



PAG' WORK 



MEMORY TEST ROUTINE" 
"UPPER LIMIT TO TEST" SUP 
LOWER LIMIT TO START" ?L0 

LO TO UP 
?J 

I...0 TO UP 

(I) 

K THEN PRINT" MEMORY LOCATION " ? I ? 

?"WAS WRITTEN? AND "?K?"WAS READ" 

THEN J=J+1 ELSE J=J#2 
29 THEN PRINT"DONE":GOTO 190 



IS BAD "ELSE 3410 
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\J •& 



3440 
3450 
3460 
3470 
3480 
3490 
3500 
35:10 
3520 
3530 
3540 



3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 

3690 
3700 
37.10 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 



GOTO 3340 

IF ERR=53 THEN PRINT 

IF ERR=56 THEN PRINT 

IF ERR=60 THEN PRINT" 

ON ERROR GOTO 

FOR Y=0 TO 15 

T2<Y)=~1 

NEXT Y 

RETURN 

G08UB 1710$ GOSUB 3490 

Q$:=:-"{ INPUT "COMMENTS 

INPUT "NUMBER OF PRINT 



FILE NOT FOUND .'RESUME 190 

DISC #"?A?" NOT MOUNTED" {RESUME 190 

DISC #»?A?" ALREADY MOUNTED" JRESUME 190 



(<15 CHARACTERS) "5 0$ 

POSITIONS - SHOULD BE BETWEEN 72 



AND 132 



INPUT" IS THIS A LISTING 

C**RIGHT* ( C* r LEN ( C* ) -1 ) t 

C*«RIGHT* ( C$ , LEN ( C* ) ~1 ) 

T1==0?P1~1 

OPEN "INhCIrA 

GOSUB 3850 

CC*6tIF E0FC1) THEN 3890 

LINEINPUT#lvA* 



OF A PROGRAM OR FILE (P OR 
IF ASC(C$)O8054THEN PRINT "E 



F r ) "*Z$ 
^ROR" JG0T01 



IF 
IF 
IF 
IF 



A$==" • 
Tl=65 
Z$-"F' 
Z*«"F' 



THEN 

THEN 

AND 

AND 



3620 
GOSUB 



.EN(A$) E 

lprint:ti« 



E 37 
Tl-fl 



20 
:CC=6tE 



3750 



3830 
LEN(A*X«PP THEN 3810 
LEN(A$)>PP THEN FOR I«l TO 

LPRINTMID*( A*» I » i ) » :CC*CC+1 J IF COPP THEN 
E 3700 

IF T1=A5 THEN GOSUB 3830ILPRINT B »? 
NEXTIJLPRINTJTl«Tl+i:iF Tl=65 THEN GOSUB 3830 
GOTO 3620 

FOR I«l TO 6: IF MID*<A*»I>1)<>" " THEN NEXT I 
B*=LEFT* ( A* f I ) : A$=MID* ( A$ r I ) I IF LEN ( B« ) >S THEN 
FOR I=4..EN(B$> TO 5JB*«" "+B*:NEXT I 
LPRINTB*? J IF LEN(A$)fLEN(B$X==PP THEN 3810 

for i = i to len<a*>:lprintmid*<a*»i»j.) j:cc=cc+i 

IF COPP THEN LPRINTJLPRINT" " ? JTl=Tl+i JC06JELSE 3790 

IF Tl=65 THEN GOSUB 3830 J LPRINT" "J 

NEXT i:LPRINTtTl=Tl+UIF Tl*65 THEN GOSUB 3830 

GOTO 3620 

LPRINT A*:T1=T1+1 

GOTO 3620 

IF E0F(1> THEN 3890 

L P R I N T J L P R I N T ? L P R I N T 

LPRINTJ ■---■ JLPRINTILPRINT 

LPR I NTC* r" " t Q$ 5 TAB ( 35 ) 9 " - " i P 1 ?"-■•" 

LPRINT 

Tl =7 :Pl=Pl+i: RETURN 

FOR J=T1 TO 67? LPRINT J NEXT J : LPR I NT"- " J LPRINT } LPR I 

FOR J=l TO 25JLPRINTJNEXT J 

GOTO 190 

G0SUB1 71 t OPEN " " » 1 » " . ♦ ♦ ♦ . . RR " » A 

PRINT*1 r 1 1 CLOSE! J KILL "..♦.♦♦ RR » , A t RETURN 



o 
o 

o 
o 

-a 

■< 

TO 
i — i 
CD 



* c*i ■ — 
?r vo 

-j 

i 

90 oo 
o 



o 

73 

rn 
oo 
m 
3> 
TO 
O 

zsz 



bo 



:nt 
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RUN "UTILITY" o 



o 



-~j 



o 
i— i 
m 



70 



DISC UTILITY PROGRAM REM. 5.1 

DO YOU WANT INSTRUCTIONS? Y o 

THE LI?t OF POSSIBLE! COMMANDS ARE AS FOLLOWS! -< 
'DAT' DATA OFF OF DISC IN OCTAL £ 

'COP' COPIES WHOLE DISC = 

'FLS' COPIES ONLY THE FILES (TRACKS 6-76) ^ 
'DAS' COPIES ONLY BASIC (TRACKS 0-5) jg 

"END' ENDS PROGRAM 

'LIS' LISTS ASCII SAVED FILES (NO PAGING) 
'PAG' LISTS ASCII SAVED FILE WITH PAGING oo 
'DI.R' LISTS TM' DIRECTORY WITH HEADINGS 
'SRT' PRINTS SORTED DIRECTORY WITH HEADINGS 
'HEX' PRINTS DATA OFF OF DISC IN HEX 
' C P F ' C P I F S DATA F I L E S 

'MEM' RUNS "MEMORY TEST BETWEEN TWO LIMITS SET 
'MNT' MOUNTS DISC NUMBER SPECIFIED gj 

'UNL' UNLOADS DISC NUMBER SPECIFIED m 

'IMS' USED TO PUNCH TAPE IN I MS A I BASIC FORMAT^ 
'LLI' SAME AS 'LIS' EXCEPT USES LINE PRINTER a: 
'LPA' SAME AS 'PAG' EXCEPT USES LINE PRINTER ~ 

o 

THE COMMAND STRUCTURE IS AS FOLLOWS FOR THE FOLLOWING 
COMMANDS? 

DAT 

DIR 

SRT 

HEX 

MNT 

UNI... 

XXXY WHERE 'XXX' IS THE COMMAND AND 'Y' IS THE DRIVE NUMBER 

FOR THE FOLLOWING COMMANDS. THE COMMAND STRUCTURE IS AS FOLLOWS? 
COP 
FLS 
BAS 

XXXY , Z WHERE 'XXX' IS THE COMMAND? 'Y' IS THE FROM 
DRIVE NUMBER, AND 'Z' IS THE DESTINATION 
DRIVE NUMBER 

FOR THE FOLLOWING COMMANDS, THE COMMAND STRUCTURE IS AS FOLLOWS 
LIS 
PAG 
IMS 
LLI 
LPA 

XXXYi-ZZZZZZ WHERE 'XXX' IS THE COMMAND, 'Y' IS THE DRIVE NUMBER 

AND 'ZZZZZZ' IS THE FILE NAME TO BE PRINTED. 
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FOR THE FOLLOWING COMMANDS THE STRUCTURE IS 



FOLLOWS? 



(1) 



(2) 



END 
MEM 
CPF 
WHERE 'XXX' 



IS THE COMMAND 



IF THE 
'BAS'r 
UNLOAD 



FOLLOWING 
' HEX ' , OR 
(UNL) AND 



COMMANDS J ' DAT ' r ' COP ' t ' FLS ' t 
'CNV ARE USED? YOU MUST FIRST 
THEN MOUNT (MNT) THE DRIUE YOU 



WANT USE THE FOLLOWING COMMANDS ON 'Lli 
'DIR'» OR 'SRT' OR YOU WILL GET A DISC 
THEN COMMANDS 'LIS'? 'IMS'? AND 'PAG' 
ONLY ON ASCII SEQUENTIAL FILES* 



UCC - COPYRIGHT 
COMMAND? 



1977 BY SCIENTIFIC RESEARCH 



;'» 'PAG'? 

I/O ERROR, 
WORK 



cr 
o 
o 

o 
o 

T> 

-< 
73 
t— ( 
O 



*-4 



GO 
O 



DATO 



TRACK? 

















SECTOR' 


? 5 














200 


000 


.1.34 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 
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000 
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000 
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000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


000 


377 


000 


000 


000 


000 


000 
















TRACK? 


1 














SECTOR' 


? 31 














201 


000 


.1.34 


120 


302 


':> 1 9 

A.. X Am 


035 


173 


245 


157 


174 


242 


311 


376 


074 


302 


A.. A» W 


035 


173 


255 


157 


174 


A« w j£. 


311 


376 


062 


302 


242 


035 


173 


255 


057 


157 


174 


/•) K- /•) 

Am W Am 


057 


311 


175 


057 


243 


057 


157 


174 


057 


'? a ':> 

A. *7 A - .. 


057 


311 


053 


327 


310 


317 


054 


001 


254 


035 


305 


366 


257 


062 


214 


012 


106 


315 


322 


024 


332 


303 


013 


257 


117 


327 


332 


315 


035 


315 


322 


024 


332 


330 


035 


117 


327 


332 


316 


035 


315 


WA>*> 


024 


322 


316 


035 


021 


377 


035 


325 


026 


002 


376 


045 


310 


024 


376 


044 


310 


024 


376 


041 


310 


026 


010 


376 


043 


310 


170 


326 


101 


346 


177 


137 


026 


000 


345 


041 


354 


012 


031 


126 


341 


053 


311 


172 


377 


052 


000 


000 


000 


000 
















TRACK? 


-1 















-n 
t— i 
o 

m 
oo 

m 

3=- 
73 
O 

-C 

1—1 

zz 
o 
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UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 
C0MMAND7HEX0 5 

TRACK? 5 

SECTOR? 5 



0123456789ABCDE 






81 


00 


5C 


28 


41 


E3 


EB 


E5 


2 A 


E6 


OA 


£7 




DF 


14 


Dl 


1 


El 


E3 


D5 


CD 


04 


40 


El 


11 


06 


OB 


CD 


04 


40 


El 


C9 


06 


2 


FF 


D7 


78 


FE 


AF 


32 


C9 


OA 


3E 


01 


32 


C7 


OA 


C3 


B6 


ID 


3 


32 


C7 


OA 


44 


4D 


OB 


OB 


OB 


OB 


OB 


3 A 


C9 


OA 


B7 


C2 


5 A 


4 


.1.4 


19 


EB 


2A 


E8 


OA 


E7 


1A 


02 


13 


03 


C2 


43 


14 


OB 


60 


5 


69 


2? 


E8 


OA 


El 


7E 


FE 


2C 


CO 


D7 


C3 


21 


14 


F5 


EB 


19 


6 


EB 


4E 


06 


00 


09 


09 


23 


06 


D2 


FA 


73 


14 


78 


CD 


38 


27 


7 


CD 


38 


27 


C3 


80 


14 


OE 


04 


CD 


2E 


27 


B8 


C2 


73 


14 


OD 



8 C2 75 14 FF 74 00 00 00 






80 00 5C 00 00 00 00 00 00 00 00 00 00 00 00 00 ' 

J 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 £ 

2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 s 

3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5 

4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ^ 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 £ 



73 



D 

6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 K 

8 00 00 00 FF 00 00 00 00 > 

73 

o 
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH == 
C0MMAND7HEXO == 

TRACK? 1 
SECTOR? 24 

1 2 3 4 5 6 7 8 9 A B C D E F 
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UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

C0MMAND7MNT1 

DISC * .1 ALREADY MOUNTED 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

C0MMAND7UNL1 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

COMMAND?MNTl 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

COMMANDTSRTO 



o 

o 

o 
o 
-o 

-< 
73 

I— I 

CD 

zc 



-^1 



DIRECTORY DISK 



o 



m 



NAME TYPE 


TRK 


SC 


A/P 


S 


36 


8 


A /PI 


S 


37 


8 


A/R PROG 


S 


42 


24 


ACBD 


S 


67 





ACBS1 


S 


73 


16 


CHESS 


S 


29 


8 


CHK NUM 


S 


33 


16 


CHK1 


S 


35 





CURVE 


S 


54 


24 


DTEMP 


S 


34 


8 


EINV 


S 


35 


16 


EP1 


S 


46 





FIN PROG 


S 


W A.. 





LEASTSQU 


S 


72 


24 


MED 


S 


27 


24 


MENU 


S 


57 





MINLEDGR 


S 


46 


24 


MINV1 


S 


38 


8 


MI SCI 


s 


36 





MWP2 


s 


11 


8 


MWP5 


s 


23 





MWP7 


s 


19 


8 


MWP9 


s 


18 


8 


PAY 


s 


34 


16 


PAY2 


s 


39 


24 


TEMPI I 


s 


30 


16 


UTILITY 


s 


17 


8 



NAME 



TYPE TRK 



A/P PROG 


S 


76 


24 


A/R 


S 


36 


.1.6 


A/Rl 


S 


37 


.1.6 


ACBS 


S 


48 


24 


CHE'S 


S 


30 


24 


CHK 


S 


37 





CHK PROG 


S 


58 


16 


COEFF 


S 


57 


24 


DATACOPY 


s 


57 


16 


EIN PROG 


s 


47 


8 


EINV1 


s 


38 


16 


FILSTRUC 


s 


68 


16 


HELP 


s 


50 


16 


MBP 


s 


32 


8 


MED FILE 


s 


26 





MER PROG 


s 


55 


8 


MINV 


s 


38 


24 


MISC 


s 


33 





MWP1 


s 


OCT 

A.. W 


8 


MWP4 


s 


21 


8 


MWP6 


s 


20 


16 


MWP8 


s 


24 





MWPMENU 


s 


26 


8 


PAY PROG 


s 


60 





PIP3 


s 


71 





TEXTEDIT 


s 


9 


24 


WPTE 


s 


53 


24 



SCT ^ 
o 

73 



CO 

m 

3=- 
73 
O 

ZC 



o 



AMOUNT OF FREE SPACE = 7 
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DIRECTORY DISK 
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e: 
o 
o 

o 

o 

-< 

en 

zr. 



NAME 

PIP3 

ACBS1 

FILSTRUC 

PAY PROG 

MENU 

COEFF 

CURVE 

HELP 

EIN PROG 

MINLEDGR 

PAY2 

MINV1 

MINV 

A/Pi 

MI SCI 

A/R 

EINV 

DTEMP 

MISC 

MBP 

CHESS 

MEDFILE 

MWP1 

MWP5 

TEXTEDIT 

UTILITY 

MWP7 



TYPE TRK 



S 
S 
S 
S 
S 
S 
S 
S 
S 



S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 

s 
s 



71 

73 

68 

60 

57 

57 

54 

50 

47 

46 

39 

38 

38 

37 

36 

36 

35 

34 

33 

32 

28 

26 

23 
9 

17 
19 



SCT 



16 
16 



24 
24 
16 
8 

24 
24 
8 

24 
8 


16 
.1.6 
8 

8 
8 

8 

24 
8 
8 



NAME 

LEASTSQU 

A/P PROG 

ACBD 

CHK PROG 

DATACOPY 

MER PROG 

FIN PROG 

ACBS 

EP1 

A/R PROG 

TEMPI 1 

EINV1 

PAY 

A/Rl 

A/P 

CHK1 

CHK 

CHK NUM 

WPTE 

CHES 

MED 

MWPMENU 

MWP8 

MWP2 

MWP4 

MWP6 

MWP9 



TYPE TRK 



s> 
S 
S 

s 

s 



s 






S 



S 
S 



72 
76 
67 
58 
57 



48 
46 
42 
30 
38 
34 
37 
36 
35 
37 
33 
53 
30 
27 
26 
24 
22 
21 
20 
18 



SCT 

24 

24 

6 

16 

16 

8 



24 



24 

16 

16 

16 

16 

8 





16 

24 

24 

24 

8 



8 

8 

16 

8 



•-4 



CO 

o 



m 



o 

70 

m 
co 
m 

3» 
70 
O 

IE 



O 



AMOUNT OF FREE SPACE = 7 

UCC - COPYRIGHT 1977 BY 

C0MMAND?PAG0r UTILITY 

COMMENTS (<15 CHARACTERS)? REV 5.1 

NUMBER OF PRINT POSITIONS - SHOULD BE BE 

IS THIS A LISTING OF A PROGRAM OR FILE 



SCIENTIFIC RESEARCH 



TWEEN 
(P OR 



72 AND 
F)? P 



132? 72 



1183 



o 
o 



o 
o 



crs 



UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

COMMAND?BASO?l 

DO YOU WISH A LIST OF REWITE AND REREAD ERRORS? Y 

FROM TO 1 ? Y 

12 3 4 5 DONE 
UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 
COMMAND?!.. I SO ?A/P 

11 

SUBURBAN TRUST v 165 ? 25 23618.71 1 295,72 3 

LAFAYETTE ELEC.?190? 18 2383.12 4 87.63 2 

ALLIED ELECTRONICS? 185? 5 11871.16 4 347.25 

FORD CREDITs- 110* 2 3119.81 2 187.5 

CHEMICAL BANK* 11 5 * 30 912.67 2 67.21 

CASH EXPENDITURE ? 10 ? 117.25 4 117.25 

AGING - 30 DAYS? 30? 5 4 , 

AGING - 45 DAYS ? 45? 4 co 

AGING •••• 60 DAYS? 60? 4 2 

AGING •- 90 DAYS? 90? 4 S 

AGING - OVER 90? 99? 7.5 4 d 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 2 

C0MMAND?PAG0?A/P ° 

COMMENTS (<15 CHARACTERS)? AS OF 7/2.1. /1 977 S 

NUMBER OF PRINT POSITIONS - SHOULD BE BETWEEN 72 AND 132? 72 m 

IS THIS A LISTING OF A PROGRAM OR FILE (P OR F)? F £g 
o 

ac 






A/P AS OF 7/21/1977 - 1 - 

11 
SUBURBAN TRUST? 165? 25 23618.71 1 295.72 
LAFAYETTE ELEC.?190? 18 2383.12 4 87.63 
ALLIED ELECTRONICS? 185? 5 11871.16 4 347.25 
FORD CREDIT? 110? 2 3.1.19.81 2 187.5 
CHEMICAL BANK? 115? 30 912.67 2 67.21 
CASH EXPENDITURE? 10? 117.25 4 117.25 
AGING - 30 DAYS? 30? 5 4 
AGING - 45 DAYS? 45? 0040 
AGING - 60 DAYS? 60? 4 
AGING - 90 DAYS? 90? 4 
AGING - OVER 90? 99? 7.5 4 



UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

COMMAND?CPF 

THIS SECTION COPIES ONLY ASCII SEQUENTIAL FILES OR RANDOM FILES. 

IT WILL NOT COPY COMPRESSED BINARY PROGRAM FILES. 

INPUT FILE NAME? A/P 

INPUT DRIVE NUMBER? 

OUTPUT FILE NAME? A/Pll 

OUTPUT DRIVE NUMBER? 

COPYING ASCII SEQUENTIAL FILE A/P 

DONE 

NUMBER OF RECORDS COPIED = 13 

UCC - COPYRIGHT 1977 BY SCIENTIFIC RESEARCH 

COMMAND?END 
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NON-PROFIT 



SOFTWARE LICENSING 



AGREEMENT 
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gQENTMCffiSEAieH 

NONPROFIT USE LICENSE AGlEElffiNT 

FOR SQFTWABE PRODUCTS 

THIS AGREEMENT is entered into by and between SCIENTIFIC 
RESEARCH, located at 1712 Farmington Court, Crofton, Maryland 21114 
and 

Licensee (Dealer, Distributor or Contractee) hereinafter referred to as 
"LICENSEE". 



Name. 



Address. 



City State Zip 

County 

under the following terms and conditions: 

1. LICENSE 

Scientific Research agrees to grant and licensee agrees to accept a nonex- 
clusive license to use and to sublicense to customers, limited to the provi- 
sions of Exhibit "B", others to use the programs listed on Exhibit "A", 
both attached hereto and incorporated herein by reference, subject to terms 
and conditions contained herein. Licensee shall pay Scientific Research 
within five (5) days of the date of receipt of the licensed software the sum of 
Fifteen Thousand Dollars ($15,000.00) as a partial consideration for said 
license and the limited right to sublicense in addition to other payments pro- 
vided herein. 

2. TERM 

This agreement and the license and right to grant sublicenses hereunder 
shall be effective for a period of one (1) year from the date on which it is ac- 
cepted by Scientific Research, and will automatically be renewed for addi- 
tional one (1) year periods thereafter, pursuant to the terms of SCHEDULE 
"A", unless terminated according to Paragraph 8 hereof or upon written 
notice from either party to the other given no less than ninety (90) days 
prior to the expiration of any such one (1) year period. Any sublicenses 
granted during the term hereof shall continue indefinitely irrespective of the 
termination of this agreement, unless a sublicensee is in violation of the 
obligations contained in Paragraph 5.3 of this agreement of Schedule "A" 
or Exhibit "B", in which case said sublicense shall immediately terminate 
and licensee shall notify said sublicensee of such termination. 

3. MATERIALS 

Scientific Research shall furnish one (1) each of the following items per 
Data Processing System purchased by licensee under contract: 

3.1 Machine readable programs of the licensed software identified in 
Exhibit "A". 

3.2 Reference manual for the licensed software, if available as of the 
date hereof. 

3.3 Updated versions of Items 3.1 and 3.2 when released by Scientific 
Research, for a period of one (1) year from the initial date of this 
agreement. 

4. TITLE 

4.1 Title and full ownership rights to the software licensed hereunder 
shall remain with Scientific Research, or its licensor, where 
applicable. 

4.2 Licensee shall not assign or otherwise transfer its rights in the 
licensed software except by sublicense provided herein, and any such 
attempted transfer is void and has no effect. 

1188 



5. USAGE CONDITIONS 

5.1 Licensee shall not disclose or distribute in printed or machine read- 
able form any source programs which are part of the licensed soft- 
ware without prior written approval of Scientific Research. 

5.2 Licensee has a license and the right to sublicense the object code or a 
portion of same during the term hereof for use by the sublicensee in 
conjunction with the sale or use of a Scientific Research Data 
Processing System in accordance with the provision" of Exhibit B 
attached hereto. 

5.3 The software distributed under this agreement is the sole property 
of Scientific Research and is not to be reproduced in any manner 
(except as required by the licensee in granting sublicenses hereunder), 
and this fact will be indicated on any copies thereof distributed. 

5.4 Sublicensees shall agree to the sublicense agreement attached 
hereto as Exhibit B, and licensee will use reasonable efforts to 
insure that sublicensees do not reproduce all or any portion of the 
licensed software in any manner whatsoever. Licensor may, in its future 
sublicense agreements, require more restrictive copying rights than 
those specified in Exhibit B. However, licensee may not remove any 
of the requirements or restrictions set forth in Exhibit B without 
the prior express written consent of Scientific Research. In the event 
that licensee discovers any violation of Exhibit B by any sub- 
licensee, licensee must report such violation to Scientific Research 
within twenty-four (24) hours and use licensee's best efforts to cause 
the sublicensee to cease his violations. If the violation continues, 
licensee must terminate the sublicense for default. 

5.5 Licensee may modify any Licensed Program in machine readable 
form and/or merge it into other program material to form an up- 
dated work for its own use, provided that the modified program be 
submitted to Scientific Research for use as they see fit without 
restrictions and that, upon discontinuance of the license for such 
Licensed Program, the Licensed Program will be completely re- 
moved from the updated work and treated as if permission to 
modify and/or merge had never been granted. 

5.6 The licensee will not ask for or expect assistance from Scientific Re- 
search in installing or in modifying the licensed software. The 
licensee is solely responsible for the installation and maintenance of 
the licensed software at his or his customer's site. 

5.7 In the event that this license is terminated in accordance with the 
terms contained herein when there are valid sublicenses in effect, each 
and every such sublicense shall automatically be assigned to 
Scientific Research and licensee shall notify each sublicensee of said 
assignment. In the event that Scientific Research's rights have been 
obtained by license from a third party and its license is terminated 
by the third party, this license shall continue as to such licensed and sub- 
licensed programs owned by the third party and Scientific Research's 
rights hereunder as to such programs shall inure to the benefit of said 
third party. This license agreement for any other programs shall con- 
tinue unaffected. 

6. LIMITATIONS OF LIABILITY 

6.1 Licensee agrees that Scientific Research's liability hereunder for 
damages, regardless of the nature of the action, shall not exceed the 
charges paid by the Licensee for the particular Licensed Program(s). 

Licensee further agrees that Scientific Research will not be liable 
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for any lost profits, or for any claim or demand against Licensee by the 
sublicensee/customer or any other party. IN NO EVENT WILL 
EITHER PARTY BE LIABLE FOR CONSEQUENTIAL DAMAGES 
EVEN IF THE PARTY HAS BEEN ADVISED OF THE POSSIBILITY 
OF SUCH DAMAGES. vooidi^i 

6.2 Licensee shall indemnify and hold Scientific Research harmless for 
any and all claims arising from licensee's or its sublicensee's use of 
licensed software. 

7. WARRANTY 

7.1 Scientific Research warrants to the Licensee that each Licensed 
Program will conform to program specifications when shipped to 
the Licensee. Scientific Research agrees, at no charge to the 
Licensee, to use its best efforts to correct any Program error 
found in the Licensed Program for a period of ninety (90) days from 
the date of initial delivery of the programs listed in Exhibit A. 
Scientific Research does not guarantee, represent or warrant that 
errors will be corrected. 
7.1 THIS EXPRESSED WARRANTY IS IN LIEU OF ALL OTHER 
CONDITIONS AND WARRANTIES EXPRESSED OR IMPLIED 
(INCLUDING THE IMPLIED CONDITIONS OR WARRANTY OF 
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PUR- 
POSE) AND OF ALL OTHER OBLIGATIONS OR LIABILITIES 
FOR BREACH OF THIS WARRANTY ON SCIENTIFIC RE- 
SEARCH'S PART. IT NEITHER ASSUMES NOR AUTHORIZES 
ANY OTHER PERSON TO ASSUME FOR SCIENTIFIC RE- 
SEARCH ANY LIABILITIES IN CONNECTION WITH THE USE 
OF SAID LICENSED SOFTWARE. 

8. TERMINATION 

In the event that licensee shall at any time neglect, fail or refuse to com- 
ply with the terms of this agreement, Scientific Research may terminate this 
agreement by serving upon licensee a notice of termination for default un- 
less licensee shall cure the condition of default within ten (10) days after 
receipt of said notice. 

9. TAXES 

Licensee shall promptly pay any taxes arising out of or under this agree- 
ment except for those taxes levied upon the net income or personal property 
of Scientific Research or its licensors. 

10. ASSIGNMENT 

This license is personal to the signed Licensee and the Licensee shall not as- 
sign this license or any interest therein or any rights hereunder except as 
provided herein, without the prior written consent of Scientific Research. 

11. MERGER 

This agreement constitutes the entire agreement between the parties 
concerning the subject matter hereof and merges all prior agreements and 
negotiations, both written and oral, of the parties. 

12. CONTROLLING LAW 

This agreement shall be governed by, subject to and construed accord- 
ing to the laws of the State of Maryland and may not be modified except by 
a writing signed by each party. 

13. ADDITIONAL TERMS 

Additional terms and conditions appearing on Schedule A are herewith 
included and incorporated in this agreement. 
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IN WITNESS WHEREOF, th© parties hereto hive executed this 
Agreement as of the date and year written below. 

ACCEPTED: AGREED: 

SCIENTIFIC RESEARCH LICENSEE (Dealer, Distributor or Contxactee) 



By___ - By 



Title Title 

Date - Date 



SCHEDULE "A" 

ADDITIONAL TERMS: 

14. YEARLY RENEWAL 

In addition to the term of the license as set out in Paragraph 2, the 
licensee will in addition tender a nominal yearly fee of $150.00, or a one 
time charge of $15,000.00 as set out in EXHIBIT "A", to be paid on or 
before January 15 of each year to Scientific Research. This renewal fee is re- 
quired annually to keep the license agreement in effect. Failure to timely 
remit the renewal fee by the stipulated date will automatically terminate this 
license as set out in Paragraph 8 and 5.7 and any other applicable sections 
included in this agreement. Renewal of a terminated license, from above 
reasons, shall cost $1,000.00 and is conditional to reacceptance by Scientific 
Research. 



EXHIBIT "A" 

The products listed below are hereby licensed under the terms of the 
attached Agreement. 

PRODUCTS INCLUDED IN THIS AGREEMENT: 
Name: Basic Software Library 

Volumes: VII only 

Programs covered: MEDBILL, and WRDPRO 



FEES for Non-Profit licensing and sublicensing. 

$15,000.00 one time fee per computer, the software is used on, or 
$150.00 per year due by January 15 of every year. Each customer or user of 
the software licensed by this agreement must notify Scientific Research in 
writing, as to the number of copies that the customer or user has and the 
whereabouts of each copy. Failure to notify Scientific Research of this in- 
formation immediately subjects the customer or user to the $15,000.00 price 
for each copy of the software set out in EXHIBIT "A" they have. 
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Software Sublicense Agreement for NON-PROFIT Usage 
Licensee /Dealer/Sublicensor shall be referred to as "sublicensor". 

IMPORTANT: These software programs listed in EXHIBIT "A" are copy- 
righted by Scientific Research and/or by a licensor of Scientific Research. Sci- 
entific Research has licensed ; . 

— ; . (Sublicensor) 

to grant limited licenses under such copyrights for personal and non-profit use. 
All programs are licensed only on the condition that the customer agrees to 
the Mowing license. READ THIS LICENSE CAREFULLY. If you do not 
agree to the terms contained in this License, contact Sublicense!* immediately. 
If you do agree, execute the agreement in the space below and return one 
executed copy to the sublicensor, and one executed copy to 1712 Farmington 
Court, Crofton, Maryland 21114. 

Sublicensor agrees to grant and the Customer agrees to accept on the 
following terms and conditions a nontransferable and non-exclusive license, for 
non-profit usage, to use and copy the software program(s) (Licensed Programs) 
herein delivered with this Agreement. 

LICENSE 

Each license granted under this Agreement authorizes the Customer to 
use the Licensed Program in any machine readable form on any single 
Scientific Research Data Processing System (referred to as System). A 
separate license is required for each system on which the Licensed Program 
will be used. All use by individuals or firms as service bureau software or 
for inclusion on any time sharing system where the software may be used by 
or for other than the licensee is strictly forbidden. Such use requires the exe- 
cution of the "FOR-PROFIT" Licensing Agreement. 

This Agreement and any of the licenses, program or materials to which it 
applies may not be assigned, sublicensed or otherwise transferred. No right 
to print or copy, in whole or in part, the Licensed Programs is granted 
except as hereinafter expressly provided. 

PERMISSION TO COPY OR MODIFY LICENSED PROGRAMS 

The Customer shall not copy, in whole or in part, any Licensed Programs 
which are provided by Sublicensor in printed form under this agreement. 

Any Licensed Programs which are provided by Sublicensor in machine 
readable form may be copied, in whole or in part, in machine readable form 
in sufficient number for use by the Customer with the designated System, 
for back-up purposes, or for archive purposes, provided, however, than no 
more that two (2) copies will be in existence under any license at any one 
time without the prior written consent from Sublicensor. The Customer(s) 
agrees to maintain appropriate records of the number and location of all 
such copies of Licensed Programs. The original, and any copy of the 
Licensed Programs, in whole or in part including any modifications made, 
which are made by the Customer shall be the property of Scientific 
Research or its licensors. 

The Customer agrees not to remove and where applicable to reproduce 
and include Scientific Research's and its licensor's copyright notices on all 
copies reproduced, in whole or in part, in any form, including partial copies 
and modifications of Licensed Program made hereunder. 

PROTECTION AND SECURITY 

The Customer agrees not to provide or otherwise make available any 
Licensed Program including, but not limited to program listings, object code 
and source code, in any form, to any person other than Customer's or 
Sublicensor's employees. Customer's failure to protect the property rights of 
Scientific Research will subject the customer or the holder of the software or 
both to an agreed upon amount, a liquidated damage fee of $75, 000. 00 for each 
copy of the software, set out in EXHIBIT "A", the customer/user/holder has or 
has had or made. 
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DISCONTINUANCE 

If Customer is in violation of any of the terms of this Agreement, 
Sublicensor will terminate this license upon thirty (30) days written notice 
unless Customer has corrected such deficiency within the said thirty (30) day 

In the event Sublicensor's license from Scientific Research shall 
terminate at any time during the duration of this sublicense, this sublicense 
shall continue in full force and effect and Sublicensor hereby assigns said 
Sublicense to Scientific Research, who shall succeed to all the rights and 
obligations of this sublicense agreement in place of Sublicensor. 

Within one (1) month after the date of discontinuance of this license, the 
Customer will furnish Sublicensor a certificate certifying that through his 
best effort, and to the best of his knowledge, the original and all copies, in 
whole or in part, in any form, of the Licensed Programs received from 
Sublicensor or made in connection with such license have been destroyed, 
except that, upon prior written authorization from Sublicensor. 

DISCLAIMER OR WARRANTY 

SCIENTIFIC RESEARCH AND SUBLICENSOR MAKE NO WAR- 
RANTIES WITH RESPECT TO THE LICENSED PROGRAMS, AND 
SPECIFICALLY DISCLAIM ALL WARRANTIES, EXPRESS OR IM- 
PLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR- 
RANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICU- 
LAR PURPOSE. 

IN NO EVENT WILL SCIENTIFIC RESEARCH OR SUBLICENSOR 
BE LIABLE FOR CONSEQUENTIAL DAMAGES EVEN IF SCIENTIFIC 
RESEARCH OR SUBLICENSOR HAVE BEEN ADVISED OF THE POSSI- 
BILITY OF SUCH DAMAGE. 

GENERAL 

If any of the provisions of this Agreement are finally declared invalid 
under any applicable statute or rule of law, this agreement shall be ter- 
minated unless Scientific Research consents in writing to the continuation of 
this agreement with the invalid provisions deleted. 

This is the complete exclusive statement of the agreement between the 
parties, which supersedes all proposals, oral or written, and all other com- 
munications between the parties relating to the subject matter of this 
Agreement and the provisions of SCHEDULE "A". 

CUSTOMER/SIGNER SUBLICENSOR/DEALER 

By By 



Title Title 



Company Company 

Designated System: _ Date: 

Location: 
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SCIENTIFIC RESEARCH 

NONPROFIT USE LICENSE AGREEMENT 

FOR SOFTWARE PRODUCTS 

THIS AGREEMENT is entered into by and between SCIENTIFIC 
RESEARCH, located at 1712 Farmington Court, Crofton, Maryland 21114 
and 

Licensee (Dealer, Distributor or Contractee) hereinafter referred to as 
"LICENSEE". 



Name. 



Address. 



City state Zip . 

County 



under the following terms and conditions: 

1. LICENSE 

Scientific Research agrees to grant and licensee agrees to accept a nonex- 
clusive license to use and to sublicense to customers, limited to the provi- 
sions of Exhibit "B", others to use the programs listed on Exhibit "A", 
both attached hereto and incorporated herein by reference, subject to terms 
and conditions contained herein. Licensee shall pay Scientific Research 
within five (5) days of the date of receipt of the licensed software the sum of 
Fifteen Thousand Dollars ($15,000.00) as a partial consideration for said 
license and the limited right to sublicense in addition to other payments pro- 
vided herein. 

2. TERM 

This agreement and the license and right to grant sublicenses hereunder 
shall be effective for a period of one (1) year from the date on which it is ac- 
cepted by Scientific Research, and will automatically be renewed for addi- 
tional one (1) year periods thereafter, pursuant to the terms of SCHEDULE 
"A", unless terminated according to Paragraph 8 hereof or upon written 
notice from either party to the other given no less than ninety (90) days 
prior to the expiration of any such one (1) year period. Any sublicenses 
granted during the term hereof shall continue indefinitely irrespective of the 
termination of this agreement, unless a sublicensee is in violation of the 
obligations contained in Paragraph 5.3 of this agreement of Schedule "A" 
or Exhibit "B", in which case said sublicense shall immediately terminate 
and licensee shall notify said sublicensee of such termination. 

3. MATERIALS 

Scientific Research shall furnish one (1) each of the following items per 
Data Processing System purchased by licensee under contract: 

3.1 Machine readable programs of the licensed software identified in 
Exhibit "A". 

3.2 Reference manual for the licensed software, if available as of the 
date hereof. 

3.3 Updated versions of Items 3.1 and 3.2 when released by Scientific 
Research, for a period of one (1) year from the initial date of this 
agreement. 

4. TITLE 

4.1 Title and full ownership rights to the software licensed hereunder 
shall remain with Scientific Research, or its licensor, where 
applicable. 

4.2 Licensee shall not assign or otherwise transfer its rights in the 
licensed software except by sublicense provided herein, and any such 
attempted transfer is void and has no effect. 
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6. USAGE CONDITIONS 

5.1 Licensee shall not disclose or distribute in printed or machine read- 
able form any source programs which are part of the licensed soft- 
ware without prior written approval of Scientific Research. 

5.2 Licensee has a license and the right to sublicense the object code or a 
portion of same during the term hereof for use by the sublicensee in 
conjunction with the sale or use of a Scientific Research Data 
Processing System in accordance with the provision" of Exhibit B 
attached hereto. 

5.3 The software distributed under this agreement is the sole property 
of Scientific Research and is not to be reproduced in any manner 
(except as required by the licensee in granting sublicenses hereunder), 
and this fact will be indicated on any copies thereof distributed. 

5.4 Sublicensees shall agree to the sublicense agreement attached 
hereto as Exhibit B, and licensee will use reasonable efforts to 
insure that sublicensees do not reproduce all or any portion of the 
licensed software in any manner whatsoever. Licensor may, in its future 
sublicense agreements, require more restrictive copying rights than 
those specified in Exhibit B. However, licensee may not remove any 
of the requirements or restrictions set forth in Exhibit B without 
the prior express written consent of Scientific Research. In the event 
that licensee discovers any violation of Exhibit B by any sub- 
licensee, licensee must report such violation to Scientific Research 
within twenty-four (24) hours and use licensee's best efforts to cause 
the sublicensee to cease his violations. If the violation continues, 
licensee must terminate the sublicense for default. 

5.5 Licensee may modify any Licensed Program in machine readable 
form and/or merge it into other program material to form an up- 
dated work for its own use, provided that the modified program be 
submitted to Scientific Research for use as they see fit without 
restrictions and that, upon discontinuance of the license for such 
Licensed Program, the Licensed Program will be completely re- 
moved from the updated work and treated as if permission to 
modify and/or merge had never been granted. 

5.6 The licensee will not ask for or expect assistance from Scientific Re- 
search in installing or in modifying the licensed software. The 
licensee is solely responsible for the installation and maintenance of 
the licensed software at his or his customer's site. 

5.7 In the event that this license is terminated in accordance with the 
terms contained herein when there are valid sublicenses in effect, each 
and every such sublicense shall automatically be assigned to 
Scientific Research and licensee shall notify each sublicensee of said 
assignment. In the event that Scientific Research's rights have been 
obtained by license from a third party and its license is terminated 
by the third party, this license shall continue as to such licensed and sub- 
licensed programs owned by the third party and Scientific Research's 
rights hereunder as to such programs shall inure to the benefit of said 
third party. This license agreement for any other programs shall con- 
tinue unaffected. 

6. LIMITATIONS OF LIABILITY 

6.1 Licensee agrees that Scientific Research's liability hereunder for 
damages, regardless of the nature of the action, shall not exceed the 
charges paid by the Licensee for the particular Licensed Program(s). 
Licensee further agrees that Scientific Research will not be liable 
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for any lost profits, or for any claim or demand against licensee by the 
sublicensee/customer or any other party. IN NO EVENT WILL 
EITHER PARTY BE LIABLE FOR CONSEQUENTIAL DAMAGES 
EVEN IF THE PARTY HAS BEEN ADVISED OF THE POSSIBILITY 
OF SUCH DAMAGES. 

8.2 Licensee shall indemnify and hold Scientific Research harmless for 
any and all claims arising from licensee's or its sublicensee's use of 

licensed software. 

7. WARRANTY 

7.1 Scientific Research warrants to the Licensee that each Licensed 
Program will conform to program specifications when shipped to 
the Licensee. Scientific Research agrees, at no charge to the 
Licensee, to use its best efforts to correct any Program error 
found in the Licensed Program for a period of ninety (90) days from 
the date of initial delivery of the programs listed in Exhibit A. 
Scientific Research does not guarantee, represent or warrant that 
errors will be corrected. 

7.1 THIS EXPRESSED WARRANTY IS IN LIEU OF ALL OTHER 
CONDITIONS AND WARRANTIES EXPRESSED OR IMPLIED 
(INCLUDING THE IMPLIED CONDITIONS OR WARRANTY OF 
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PUR- 
POSE) AND OF ALL OTHER OBLIGATIONS OR LIABILITIES 
FOR BREACH OF THIS WARRANTY ON SCIENTIFIC RE- 
SEARCH'S PART. IT NEITHER ASSUMES NOR AUTHORIZES 
ANY OTHER PERSON TO ASSUME FOR SCIENTIFIC RE- 
SEARCH ANY LIABILITIES IN CONNECTION WITH THE USE 
OF SAID LICENSED SOFTWARE. 

8. TERMINATION 

In the event that licensee shall at any time neglect, fail or refuse to com- 
ply with the terms of this agreement, Scientific Research may terminate this 
agreement by serving upon licensee a notice of termination for default un- 
less licensee shall cure the condition of default within ten (10) days after 
receipt of said notice* 

9. TAXES 

Licensee shall promptly pay any taxes arising out of or under this agree- 
ment except for those taxes levied upon the net income or personal property 
of Scientific Research or its licensors. 

10. ASSIGNMENT 

This license is personal to the signed Licensee and the Licensee shall not as- 
sign^ this license or any interest therein or any rights hereunder except as 
provided herein, without the prior written consent of Scientific Research. 

11. MERGER 

This agreement constitutes the entire agreement between the parties 
concerning the subject matter hereof and merges all prior agreements and 
negotiations, both written and oral, of the parties. 

12. CONTROLLING LAW 

This agreement shall be governed by, subject to and construed accord- 
ing to the laws of the State of Maryland and may not be modified except by 
a writing signed by each party. 

13. ADDITIONAL TERMS 

Additional terms and conditions appearing on Schedule A are herewith 
included and incorporated in this agreement. 
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IN WITNESS WHEREOF, the parties hereto have executed this 
Agreement as of the date and year written below. 

ACCEPTED: AGREED: 

SCIENTIFIC RESEARCH LICENSEE (Dealer, Distributor or Contractee) 



By . By 



Title — Title 

Date : Date 



SCHEDULE "A" 

ADDITIONAL TERMS: 

14. YEARLY RENEWAL 

In addition to the term of the license as set out in Paragraph 2, the 
licensee will in addition tender a nominal yearly fee of $150.00, or a one 
time charge of $15,000.00 as set out in EXHIBIT "A", to be paid on or 
before January 15 of each year to Scientific Research. This renewal fee is re- 
quired annually to keep the license agreement in effect. Failure to timely 
remit the renewal fee by the stipulated date will automatically terminate this 
license as set out in Paragraph 8 and 5.7 and any other applicable sections 
included in this agreement. Renewal of a terminated license, from above 
reasons, shall cost $1,000.00 and is conditional to reacceptance by Scientific 
Research. 



EXHIBIT "A" 

The products listed below are hereby licensed under the terms of the 
attached Agreement. 

PRODUCTS INCLUDED IN THIS AGREEMENT: 
Name: Basic Software Library 

Volumes: VII only 

Programs covered: MEDBILL, and WRDPR0 



FEES for Non-Profit licensing and sublicensing. 

$15,000.00 one time fee per computer, the software is used on, or 
$150.00 per year due by January 15 of every year. Each customer or user of 
the software licensed by this agreement must notify Scientific Research in 
writing, as to the number of copies that the customer or user has and the 
whereabouts of each copy. Failure to notify Scientific Research of this in- 
formation immediately subjects the customer or user to the $15,000.00 price 
for each copy of the software set out in EXHIBIT "A" they have. 
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EXHIBIT "B" 

Software Sublicense Agreement for NON-PROFIT Usage 

Licensee/Dealer/Sublicensor shall be referred to as "sublicensor". 

IMPORTANT: These software programs listed in EXHIBIT "A" are copy- 
righted by Scientific Research and/or by a licensor of Scientific Research. Sci- 
entific Research has licensed 



' — (Sublicensor) 

to grant limited licenses under such copyrights for personal and non-profit use. 
All programs are licensed only on the condition that the customer agrees to 
the following license. READ THIS LICENSE CAREFULLY. If you do not 
agree to the terms contained in this License, contact Sublicensor immediately. 
If you do agree, execute the agreement in the space below and return one 
executed copy to the sublicensor, and one executed copy to 1712 Farmington 
Court, Crofton, Maryland 21114. 

Sublicensor agrees to grant and the Customer agrees to accept on the 
following terms and conditions a nontransferable and non-exclusive license, for 
non-profit usage, to use and copy the software program(s) (Licensed Programs) 
herein delivered with this Agreement. 

LICENSE 

Each license granted under this Agreement authorizes the Customer to 
use the Licensed Program in any machine readable form on any single 
Scientific Research Data Processing System (referred to as System). ^4 
separate license is required for each system on which the Licensed Program 
vM be used. All use by individuals or firms as service bureau software or 
for inclusion on any time sharing system where the software may be used by 
or for other than the licensee is strictly forbidden. Such use requires the exe- 
cution of the "FOR-PROFIT' Licensing Agreement. 

This Agreement and any of the licenses, program or materials to which it 
applies may not be assigned, sublicensed or otherwise transferred. No right 
to print or copy, in whole or in part, the Licensed Programs is granted 
except as hereinafter expressly provided. 

PERMISSION TO COPY OR MODIFY LICENSED PROGRAMS 

The Customer shall not copy, in whole or in part, any Licensed Programs 
which are provided by Sublicensor in printed form under this agreement. 

Any Licensed Programs which are provided by Sublicensor in machine 
readable form may be copied, in whole or in part, in machine readable form 
in sufficient number for use by the Customer with the designated System, 
for back-up purposes, or for archive purposes, provided, however, than no 
more that two (2) copies will be in existence under any license at any one 
time without the prior written consent from Sublicensor. The Customer(s) 
agrees to maintain appropriate records of the number and location of all 
such copies of Licensed Programs. The original, and any copy of the 
Licensed Programs, in whole or in part including any modifications made, 
which are made by the Customer shall be the property of Scientific 
Research or its licensors. 

The Customer agrees not to remove and where applicable to reproduce 
and include Scientific Research's and its licensor's copyright notices on all 
copies reproduced, in whole or in part, in any form, including partial copies 
and modifications of Licensed Program made hereunder. 

PROTECTION AND SECURITY 

The Customer agrees not to provide or otherwise make available any 
Licensed Program including, but not limited to program listings, object code 
and source code, in any form, to any person other than Customer's or 
Sublicensor's employees. Customer's failure to protect the property rights of 
Scientific Research will subject the customer or the holder of the software or 
both to an agreed upon amount, a liquidated damage fee of $75,000.00 for each 
copy of the software, set out in EXHIBIT "A", the customer/user/holder has or 
has had or made. 1198 



DISCONTINUANCE 

If Customer is in violation of any of the terms of this Agreement, 
Sublicensor will terminate this license upon thirty (30) days written notice 
unless Customer has corrected such deficiency within the said thirty (30) day 
period. 

In the event Sublicensees license from Scientific Research shall 
terminate at any time during the duration of this sublicense, this sublicense 
shall continue in full force and effect and Sublicensor hereby assigns said 
Sublicense to Scientific Research, who shall succeed to all the rights and 
obligations of this sublicense agreement in place of Sublicensor. 

Within one (1) month after the date of discontinuance of this license, the 
Customer will furnish Sublicensor a certificate certifying that through his 
best effort, and to the best of his knowledge, the original and all copies, in 
whole or in part, in any form, of the Licensed Programs received from 
Sublicensor or made in connection with such license have been destroyed, 
except that, upon prior written authorization from Sublicensor. 

DISCLAIMER OR WARRANTY 

SCIENTIFIC RESEARCH AND SUBLICENSOR MAKE NO WAR- 
RANTIES WITH RESPECT TO THE LICENSED PROGRAMS, AND 
SPECIFICALLY DISCLAIM ALL WARRANTIES, EXPRESS OR IM- 
PLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR- 
RANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICU- 
LAR PURPOSE. 

IN NO EVENT WILL SCIENTIFIC RESEARCH OR SUBLICENSOR 
BE LIABLE FOR CONSEQUENTIAL DAMAGES EVEN IF SCIENTIFIC 
RESEARCH OR SUBLICENSOR HAVE BEEN ADVISED OF THE POSSI- 
BILITY OF SUCH DAMAGE. 

GENERAL 

If any of the provisions of this Agreement are finally declared invalid 
under any applicable statute or rule of law, this agreement shall be ter- 
minated unless Scientific Research consents in writing to the continuation of 
this agreement with the invalid provisions deleted. 

This is the complete exclusive statement of the agreement between the 
parties, which supersedes all proposals, oral or written, and all other com- 
munications between the parties relating to the subject matter of this 
Agreement and the provisions of SCHEDULE "A". 

CUSTOMER/SIGNER SUBLICENSOR/DEALER 

By By _ 



Title Title 



Company Company 

Designated System: Date: 

Location: 
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